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ABSTRACT 


The Administrative Sciences (AS) Department of the Naval Postgraduate School (NPS) 
is placing an increasing emphasis on keeping departmental expenses at minimum levels 
requiring the AS Department to carefully monitor ? large number of complex financial 
accounts. It becomes necessary to develop a Financial Management Information System that 
would result in improved management of financial assets, better use of clerical skills, and more 
detailed, accurate, and up-to-date reporting within the AS Department. Based on the 
requirement analysis and prototypes performed by previous work, this thesis develops and 
implements a personal computer-based Management Information System for the management 
of the many funding accounts controlled by the Administrative Sciences Department. The 
central objective was to integrate accounting transactions performed in several different 
offices, currently using different software programs, into a single all-encompassing 
Management Information System. The system was written using dBASE IV and is currently 
operational. 
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I. INTRODUCTION 


The purpose of this thesis was to design a menu-driven 
data-base oriented decision support system to manage the 
various resource accounts controlled by the Administrative 
Science Department, Naval Postgraduate School. The myriad 
management systems currently in use will be consolidated into 
one comprehensive system, eliminating much of the manual 
manipulation of data presently required to generate financial 
reports. This computerized system will be capable of 
producing reports to meet existing internal reporting 
requirements while providing the ability to generate 
additional reports and queries as needed. The menu-driven 
format will require minimal computer knowledge by the user to 
operate the data-based system. The system application is 
written in dBASE IV, implemented on a MS-DOS-based personal 
computer. 

A. REVIEW OP CURRENT SYSTEMS 

With the dwindling resources available to all DOD 
activities, the need to effectively use all available dollars 
is more important than ever. In order to manage resources 
effectively, a properly designed Financial Management 
Information System (FMIS) will be indispensable. 
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The need for a resource management information system in 


the 

AS 

Department has been 

examined by 

Renner 

[Ref. 

1 ] • 

The study conducted 

a structured 

analysis 


to determine the computing needs of the AS Department. This 
analysis defined three different sub-systems: 

• Financial 

• Personnel 

• Property 

to keep track of all information pertaining to the management 
and control of departmental activities. Booker 

[Ref. 2] developed and implemented a prototype system 
in 1986 in part as a feasibility study, implementing some of 
the features of each subsystem outlined in the previous 
analysis. The prototype proved the system feasible by showing 
that many of the manual procedures could be automated. Sexton [Ref. 3] 
developed and implemented the Property Management System (PMS) 
to support the management and accountability of the 
departmental property on a microcomputer. 

Other information systems currently in use were created by 
the operators and users of the information using personal 
computer (PC) based software that they were familiar with. 
The result is an assortment of different information systems 
for tracking financial transactions and producing reports. 
Because both database and spreadsheet programs are in use, 
there is much duplication of data entry to create the reports 
required by management. Users familiar with one software 
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program are typically not familiar with the other software 
program, limiting the ability for any user to access the 
information he or she requires. 

B. PURPOSE 

The purpose of this thesis was to develop a personal 
computer-based Resource Management Information System for the 
management of the many funding accounts controlled by the 
Administrative Sciences Department. The central objective was 
to integrate accounting transactions currently performed in 
several different offices using different software programs, 
into a single all-encompassing Resource Management Information 
System. 

The main requirement of the system was to maintain 
financial accountability for the numerous fund accounts 
entrusted to the department. The ability of the system to 
provide management reports, geared toward both internal and 
external reporting requirements, was crucial to the 
development of the system. The FMIS had to be efficient and 
responsive to requests for information. The FMIS would track 
financial transactions involving labor, travel, and PpTAR 
accounts. 

The project was divided into five phases. The first phase 
consisted of a survey of the user's requirements. This 
included understanding the accounting system, both in terms of 
internal processes and external requirements. 
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The second phase was the selection of a software package 
that "'Cc three criteria; (1) readily available at NPS, (2) an 
inherent capability to store and process large amounts of data 
and, (3) would provide an easy-to-learn and user-friendly 
interface. Ashton-Tate 1 s dBASE IV, a database management 
system, meet the preceding requirements and was chosen as the 
project's software package. 

Phase three involved database development and report 
definition. Phase four involved installing the prototype FMIS 
on AS Department PC's for testing. Both phases required close 
interaction with the users. 

The fifth phase involved actual implementation of the 
system at the beginning of FY 91. It commenced with entry of 
the new fiscal year's data and manual comparison to asr re the 
accuracy and reliability of the system. Close monitoring of 
the operational effectiveness continued through the first 
quarter of the fiscal year. 
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II. SYSTEMS ANALYSIS AND DESIGN 


Prior to development of the FMIS an understanding of the 
current practice was required. The informational needs of the 
users were surveyed and the goals of the FMIS were defined. 
A framework was then developed and a software package chosen. 
Once the databases were defined, the desired reports to be 
generated were designed. The final requirement was the 
preparation of an application to implement the FMIS. 

A. SYSTEM REQUIREMENTS AND ANALYSIS 
l. Review of Current System 

The AS Department is responsible for maintaining 
approximately 35 separate fund accounts. The nature of these 
funds include the day-to-day support of the department, 
including supplies, staff/faculty salaries, funding from 
external sources in support of scholarly research performed by 
faculty members, and other staff/faculty support funding. 
Within each account, all obligations including salaries, 
travel and OPTAR expenditures, must be tracked to meet the 
external financial reporting requirements, and just as 
importantly, to enable financial decision making. 

The management of all accounts was being done 
separately, by those in charge of maintaining direct and 
indirect funds and reimbursable account status along with 
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supply requisition status, at several desks using personal 
computers and various software products. While the processes 
were "computerized", there had been no integration of the 
various functions. In effect, it was necessary to maintain 
lists of transactions for manual compilation into several 
"master" computer spreadsheets to produce summary reports. 
This process was extremely labor intensive in that data was 
repetitively processed at more than one point to generate 
reports for managerial use. • 

2. survey of User's Requirements 

To begin designing the Administrative Sciences (AS) 
Department's Management Information System (FMIS), an 
extensive survey was conducted to determine specific user 
needs, to get an understanding of the financial accounting 
system within which the FMIS was to operate, to assess the 
current system in use by the department, and to select a 
software package considered both powerful and flexible enough 
to meet the system requirements. This was accomplished 
through numerous interviews with key personnel tasked with the 
financial management responsibility within the department. 
The main requirement of the FMIS was established: To maintain 
financial accountability for the numerous fund accounts 
entrusted to the department from sources both internal to NPS 
and from outside the school, while providing an efficient, 
labor-saving means to do so. 
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3. Framework Development 

The survey resulted in the development of a framework 
by which the FMIS was to be designed, and was defined as 
follows: 

• The system would employ a Data Base Management System 
(DBMS) to enable data accumulation and to provide 
efficient report generation. 

• A user-friendly menu-driven system requiring little 
technical knowledge of the software and computer 
operation. 

• Adaptable for future installation on a Local Area Network 
and implementation of additional user specified modules. 

• Developed using a software package that was readily 
available in the market, and as previously mentioned, 
provide the power and flexibility required for the defined 
system. dBASE IV was chosen for those reasons. 

• Use PC/MS DOS based personal computers. 


B. DATABASE AND REPORT SPECIFICATIONS 

Once an understanding of the financial management function 
of the AS Department was obtained, the system framework 
defined, and a software package selected, the next step was to 
begin development or the FMIS. 

1. Database Specifications 

Databases were developed and their relationships 
established. This was accomplished through user interviews in 
which six logical database files and their specific data 
elements were defined. It was also necessary to develop one 
additional temporary database file to enable batch updating. 
Each was to be developed as a separate module, with an eye 
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towards ensuring that relationships could be established as 
necessary to take advantage of the power afforded by a 
relational database structure. 

As depicted in Figure 2.1, the data files constitute 
a hierarchy. The Accounts database is considered to be the 
"master” database file because all fund accounts and their 
respective initial balances are established there. 
Subordinate to the Accounts file is the Direct Accounts file. 
This was required to establish specific funding allotments to 
individual accounts controlled by principal investigators. 
Subordinate to both the Accounts and Direct Accounts file; the 
Labor, Supply and Travel databases were established to 
accumulate transactional processing data for later report 
preparation drawing on account information located in both the 
Account and Direct Account databases. A Personnel file was 
established to maintain personal staff/faculty information, in 
particular, salary information for use in payroll report 
processing. Further, relationships were established between 
the Accounts and Personnel data files and the Labor, Supply 
and Travel files to enable account and personnel validation 
during transaction data entry. This was accomplished through 
use of user-defined functions, a feature of dBASE IV. 
Finally, as mentioned above, a temporary database file was 
created to allow batch updating of the Labor database so that 
actual payroll amounts could be stored with each record. 
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Figure 2.1 Database Hierarchy 

Figure 2.1 depicts the various relationships that were 


established to take advantage of the relational structure 
afforded by dBASE IV. Specifics regarding the above data 
files and their elements are contained in the Data Dictionary, 
Appendix A. 

In conjunction with the definition of databases, and 
to facilitate data entry into the system, a formatted data 
entry screen was created for each data file. They were based 
on the format in which raw data was obtained in an effort to 
facilitate data entry. 
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2. Report Specification 

Once the database files and their attributes were 
defined, report definition began. This was also accomplished 
with direct user input. Three main categories of reports were 
developed: 

• Summary reports - management reports aimed toward 
providing bottom-line fund status. 

• Audit reports - reports supporting the Summary Reports and 
providing specific transaction information. 

• Status/Tickler reports - reports geared toward supporting 
individual transactions, e.g., supply status listings, 
delinquent travel claims listings, etc. 

The report generating feature of dBASE IV enabled 
development of all report requirements with the exception of 
the summary reports. Because this feature precludes the 
simultaneous use of multiple database files, it was necessary 
to use the dBASE IV programming language to create these 
reports. 

A listing of all reports and their specific file names 
and related views is provided in Appendix A, Reports. 
Additionally, dBASE programming code documentation for the 
summary reports is provided in Appendix B, Program Listings. 

C. DEVELOPMENT AND IMPLEMENTATION 
1. Database Development 

Developing a database requires three steps. Data 
requirements for the organization as a whole must be 
identified. The key entities, attributes, and relationships 
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that constitute the organization's data must be identified. 
The next step is to define the logical relationships between 
the data, a process known as data modeling. These 
relationships must be represented in the database. The third 
step involves organizing the database in such a way as to 
optimize access, flexibility, and efficiency. 

2. Database Characteristics 

A database is a set of data organized to serve many 
applications efficiently by centralizing the data and 
minimizing redundant data. dBASE IV, a database management 
system (DBMS), is a popular PC-based software package that 
accomplishes this task. 

The data resides physically on a computer disk in the 
form of data elements. dBASE IV acts as the interface between 
application programs and the physical data files. Application 
programs request data elements from the database. When the 
application program calls for a data element like travel 
advances, dBASE IV finds this element in the database and 
presents it to the application program. The software package 
incorporates all of the computer languages required to execute 
the requirements of the user in a user-friendly application. 
The end user is relieved of the task of understanding where 
and how the data is actually stored. This permits the end 
user to issue a few simple queries to produce reports. 
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Every information system must keep track of certain 
entities (e.g., faculty, supply requisitions) that have 
certain attributes (e.g., address, cost) and certain relations 
among them (e.g., temporary faculty, overdue requisitions). 
Previously this could have been a 3 x 5 card file system. 
There are three different ways in which the DBMS keeps track 
of entities, attributes, and relations. 

Hierarchical DBMSs present data to users in a tree¬ 
like structure. To the user, each record looks like an 
organizational chart with an upper segment connected logically 
to a lower segment in a parent-child or one-to-many 
relationship, one parent and possibly many children. The data 
is physically linked to one another by a series of pointers 
that form chains of related data segments. 

Network DBMSs are a variation of hierarchical DBMSs. 
Network structures depict data logically as many-to-many 
relationships. Network structures reduce redundancy and are 
often faster than hierarchical DBMSs but require many more 
pointers. Advantages to both types of DBMSs are organization 
and access to data, efficient processing of transactions, and 
the ability to have a large number of variable-length records. 
This makes them very good for structured routine request, but 
the access paths, directories, and indices must be specified 
in advance. But, this design has low flexibility and is 
programming intensive, time consuming, and difficult to 
install. 
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A relational model can relate any piece of information 
stored in one file to any piece of information stored in 
another file as long as the two tables share a common data 
element. In each file, the rows or tuples are unique records 
and the columns are fields. A relational database is highly 
flexible in regard to ad hoc inquiries, power to combine 
information from different sources, simplicity of design and 
maintenance, and the ability to add new data and records 
without disturbing existing programs and applications. A 
significant weakness of a relation database is processing 
efficiency. They are slow because they typically require many 
accesses to the data stored on the disk. This problem is 
significant only for large-volume transaction processing 
systems like airline reservation systems, and should not be 
significant in our application. 

Logically defined, dBASE IV incorporates a relational 
database structure. Each database file or table consist of 
records (or rows) of information. Each record is divided into 
separate fields (or columns) of information. Forms are used 
to input data into files and reports are the familiar output. 
A one-to-one relationship among forms, database files, and 
reports is not required. dBASE IV can easily pull together 
information from separate database tables into a single 
report. Information may be added, deleted, or changed 
effortlessly. 
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3. Database Generation 


The final step before system installation was to tie 
the various modules of the FMIS together into a menu-driven 
system. This was accomplished using the dBASE IV Applications 
Generator. This powerful feature enabled the creation of 
pull-down menus for all aspects of the system's use. 

Within the application, each database file and the 
various operations associated with it are accessed through 
individual menus. Additionally, a "Tools" menu is included to 
provide several utilities for data file maintenance, e.g., 
database backup and restoration, rebuilding of corrupted 
indexes, etc. Application documentation is provided in 
Appendix C, Application Documentation. 

4. System Implementation 

The FMIS was installed on two personal computers in 
the AS Department two weeks prior to the beginning of FY 91. 
This provided the opportunity to test the system with sample 
data while at the same time, giving the user hands-on 
operating experience. Several minor errors were detected 
during the period and corrected. As to be expected, this also 
resulted in additional user requirements (additional reports) 
as the power of the FMIS became apparent. 

Because data entry to the system was accomplished in 
two different locations during the test period, it was 
necessary to produce two different versions of the system (a 
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temporary measure until installation of the proposed local 
area network (LAN)). The main system was installed in the AS 
Department office; more easily accessible to key supervisory 
personnel. All data entry, with the exception of supply 
transactions, and report generation is accomplished at this 
location. A second system, limited to supply support, was 
installed at another location where supply services are 
provided to staff and faculty personnel. This system differed 
in that complete access to the Supply database and limited 
access to the Accounts database (to verify existence Job Order 
Numbers for validation purposes) was provided. The user can 
perform data entry and print various requisition status 
reports from this location. Also, because report generation 
is performed at the main location, and account and personnel 
validation is performed at the other using updated account and 
personnel information, it is necessary to share data between 
the two systems. Utilities were provided in each system's 
"Tools" menu for the import/export of updated data files. 

The installation phase proved very successful. With 
the exception of the before mentioned errors, the program 
performed as designed. Extensive review of all reports by 
supervisory personnel indicated that all transactions were 
being processed correctly; balances, total obligations and 
individual transactions were accurately reflected. 

The FMIS was well received by the user. A 
presentation of the nearly finalized version was made to the 
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Department Chairman and other key supervisory personnel and 
was accepted with suggestions for future development in 
subsequent thesis research. As a result, the system was put 
into use beginning with the new fiscal year and monitored 
closely during the first quarter for unforeseen processing 
errors. No significant problems were encountered. 

Finally, a user's manual was prepared along with two 
backup copies of the system. With empty database files, the 
system will fit on a single 1.2 Megabyte floppy diskette. The 
user's manual is contained in Appendix D. 
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III. CONCLUSIONS 


The Financial Management Information System is presently 
being utilized as a means of accounting for the many funded 
accounts the AS Department Chairman must keep track of. The 
users have indicated their satisfaction with the system and 
look forward to being able to track financial data with 
improved accuracy and timeliness. 

Since the implementation of the FMIS at the beginning of 
Fiscal Year 1991, very small changes have been required to 
accomplish all of the goals set forth in the beginning. With 
the assistance of the user's manual, this thesis, and a basic 
knowledge of dBASE IV, this data based application could be 
easily adapted for other departmental financial records. 

Financial management was only one of three areas where PC- 
based computer applications would be beneficial. The Property 
Management System is currently providing a useful means of 
maintaining accountability for AS Department property. The 
users have expressed an interest in improving the property 
management system with more detailed reports and possibly 
integrated with the supply and personnel databases. 
Weaknesses in this system were not explored in this thesis and 
are left as possible areas for future study. 

Although this system does have a limited personnel 
database, an improved or enhanced personnel database with 
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additional reports may provide potentially useful information 
to the department’s decision makers. 

Finally, as the users becomes more familiar with the 
reports available, new reports will be identified. This might 
entail adding new records to the existing databases but should 
not require significant modifications to this FMIS. With the 
implementation of a local area network tying together the 
different databases and their users, additional problems may 
surface requiring a person with knowledge of dBASE IV to 
correct. 

In conclusion, tne goal of this thesis was to deliver a 
satisfactory system that the users would be comfortable with 
and have this system installed to support the new fiscal year 
reporting requirements. This goal was accomplished with the 
Financial Management Information System. 


» 
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APPENDIX A: DATA DICTIONARY 


A. TABLE 1: DATA FILES 


FILE NAME 

TYPE 

DESCRIPTION 

ACCTS.DBF 

DATA 

ATTRIBUTES ABOUT AN ACCOUNT 

DACCTS.DBF 

DATA 

ATTRIBUTES ABOUT A DIRECT 
ACCOUNT 

PERSONNE.DBF 

DATA 

ATTRIBUTES ABOUT AN EMPLOYEE 

LABOR1.DBF 

DATA 

ATTRIBUTES ABOUT INDIVIDUAL 
PAYROLL TRANSACTIONS 

TEMPLAB.DBF 

DATA 

ENABLES CALCULATIONS OF 
INDIVIDUAL PAYROLL TRANSACTIONS 
FOR UPDATING LABOR1.DBF 

SUPPLY.DBF 

DATA 

ATTRIBUTES ABOUT INDIVIDUAL 
SUPPLY TRANSACTIONS 

TRAVEL.DBF 

DATA 

ATTRIBUTES ABOUT INDIVIDUAL 
TRAVEL ORDERS 
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B. TABLE 2: ACCTS.DBF DATA ELEMENTS 


ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

JON 

CHAR 

5 

JOB ORDER NUMBER 

FUNDTYPE 

CHAR 

1 

TYPE OF ACCOUNT 

MIPRNR 

CHAR 

15 

MIPR NUMBER 

PI 

CHAR 

5 

PRINCIPAL INVESTIGATOR 

TITLE 

CHAR 

50 

NAME AND DESCRIPTION OF ACCOUNT 

SPONSOR 

CHAR 

30 

SPONSORING ACTIVITY OF ACCOUNT 

DATERECVD 

DATE 

8 

DATE FUNDING AUTHORIZED 

EXPDATE 

DATE 

8 

DATE FUNDING AUTHORITY EXPIRES 

SERIAL1 

CHAR 

11 

SERIAL NUMBER BLOCKS ASSIGNED TO 
ACCOUNT 

SERIAL2 

CHAR 

9 

ADDITIONAL SERIAL NUMBER BLOCK 

PROJORDER 

LOG 

1 

IS ACCOUNT PROJECT ORDER? 

BGTPGDATE 

DATE 

8 

BUDGET PAGE DATE 

CONSUP 

LOG 

1 

IS CONTRACT SUPPORT AUTHORIZED? 

CONSUPAMT 

NUM 

12 

AMOUNT OF CONTRACTOR SUPPORT 
AUTHORIZED BY ACCOUNT 

LABOR 

NUM 

12 

LABOR FUNDING AUTHORIZED BY 
ACCOUNT 

OPTAR 

NUM 

12 

SUPPLY SUPPORT FUNDING 

AUTHORIZED BY ACCOUNT 

TRAVEL 

NUM 

12 

TRAVEL FUNDING AUTHORIZED BY 
ACCOUNT 

INTTLFUNDS 

NUM 

12 

INITIAL TOTAL FUNDING AUTHORIZED 
BY ACCOUNT 

TTLFUNDS 

NUM 

12 

CURRENT AUTHORIZED TOTAL FUNDING 
AUTHORIZED BY ACCOUNT 
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C. TABLE 3: DACCTS.DBF DATA ELEMENTS 


ELEMENT 

TYPE 

WIDTH 

NAME 

CHAR 

15 

PI 

CHAR 

5 

JON 

CHAR 

5 

SERIAL1 

CHAR 

11 

SERIAL2 

CHAR 

9 

TRAVEL 

NUM 

9 

LABOR 

NUM 

9 

OPTAR 

NUM 

9 

CONSUPAMT 

NUM 

9 

TOTAL 

NUM 

12 


DESCRIPTION 

NAME OF PRINCIPAL 
INVESTIGATOR 

PRINCIPAL INVESTIGATOR CODE 

JOB ORDER NUMBER 

SERIAL NUMBER BLOCKS 
ASSIGNED TO ACCOUNT 
ADDITIONAL SERIAL NUMBER 
BLOCK 

TRAVEL FUNDING AUTHORIZED 
TO PRINCIPAL INVESTIGATOR 
LABOR FUNDING AUTHORIZED TO 
PRINCIPAL INVESTIGATOR 
SUPPLY SUPPORT FUNDING 
AUTHORIZED TO PRINCIPAL 
INVESTIGATOR 
CONTRACTOR SUPPORT 
AUTHORIZED TO PRINCIPAL 
INVESTIGATOR 

TOTAL FUNDING AUTHORIZED TO 
PRINCIPAL INVESTIGATOR 
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D. TABLE 4: PERSONNE.DBF DATA ELEMENTS 


ELEMENT 

TYPE 

WIDTH 

LASTNAME 

CHAR 

15 

FIRSTNAME 

CHAR 

10 

PI 

CHAR 

5 

IDCODE 

CHAR 

2 

PLOFBIRTH 

CHAR 

15 

ADDRESS 

CHAR 

20 

CITY 

CHAR 

15 

STATE 

CHAR 

2 

ZIP 

CHAR 

5 

EMCONTACT 

CHAR 

20 

FACSTAFF 

CHAR 

1 

HPHONE 

CHAR 

13 

SSN 

CHAR 

11 

BDATE 

DATE 

8 

OPHONE 

CHAR 

4 

GRADESTEP 

CHAR 

8 

ODOOR 

CHAR 

4 

TITLE 

CHAR 

20 

STATUS 

CHAR 

15 

PDNO 

CHAR 

4 

BILLETNR 

CHAR 

10 

BASESAL 

NUM 

9 

PROMODATE 

DATE 

8 


DESCRIPTION 

LAST NAME OF 
INDIVIDUAL 
FIRST NAME OF 
INDIVIDUAL 

PRINCIPAL INVESTIGATOR CODE 

IDENTIFICATION CODE 

PLACE OF BIRTH 

STREET ADDRESS OF 

RESIDENCE 

CITY OF RESIDENCE 

STATE OF RESIDENCE 

ZIP CODE 

EMERGENCY CONTACT 

FACULTY OR STAFF 

HOME PHONE NUMBER 

SOCIAL SECURITY NUMBER 

BIRTH DATE 

OFFICE PHONE 

GRADE AND STEP 

OFFICE NUMBER 

TITLE OF POSITION HELD 

EMPLOYMENT STATUS 

POSITION DESCRIPTION 
NUMBER 

BILLET NUMBER OCCUPIED 
BASE SALARY 

DATE OF LAST PROMOTION 
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ELEMENTS 

TYPE 

WIDTH 

DESCRIPTION 

APPTSTART 

DATE 

8 

APPOINTMENT START DATE 

APPTEND 

DATE 

8 

APPOINTMENT END DATE 

CTSBEG 

DATE 

8 

CIS BEGIN DATE 

CISEND 

DATE 

8 

CIS END DATE 

REMARKS 

MEMO 

10 

REMARKS 
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E. TABLE 5: 

LABOR1 

.DBF DAT; 

ELEMENT 

TYPE 

WIDTH 

JON 

CHAR 

5 

IDCODE 

CHAR 

2 

PI 

CHAR 

5 

LASTNAME 

CHAR 

15 

FIRSTNAME 

CHAR 

10 

PPE 

DATE 

8 

REGHRS 

NUM 

4 

OTHRS 

NUM 

4 

ANLEAVE 

NUM 

4 

SKLEAVE 

NUM 

4 

HOLIDAY 

NUM 

4 

ACCRATE 

NUM 

6 

TOTPAY 

NUM 

10 


ELEMENTS 

DESCRIPTION 
JOB ORDER NUMBER 
ID CODE OF PAYEE 
PI CODE OF PAYEE 
LAST NAME OF PAYEE 
FIRST NAME OF PAYEE 
PAY PERIOD END DATE 
REGULAR HOURS WORKED 
OVERTIME HOURS WORKED 
ANNUAL LEAVE HOURS TAKEN 
SICK LEAVE HOURS TAKEN 
HOLIDAY HOURS TAKEN 
ACCELERATION RATE 
TOTAL PAY OBLIGATION 
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F. TABLE 6: TEMPLAB.DBF DATA ELEMENTS 


ELEMENT 

TYPE 

WIDTH 

JON 

CHAR 

5 

IDCODE 

CHAR 

2 

PI 

CHAR 

5 

LASTNAME 

CHAR 

15 

FIRSTNAME 

CHAR 

10 

PPE 

DATE 

8 

REGHRS 

NUM 

4 

OTHRS 

NUM 

4 

ANLEAVE 

NUM 

4 

SKLEAVE 

NUM 

4 

HOLIDAY 

NUM 

4 

ACCRATE 

NUM 

6 

TOTPAY 

NUM 

10 


DESCRIPTION 
JOB ORDER NUMBER 
ID CODE OF PAYEE 
PI CODE OF PAYEE 
LAST NAME OF PAYEE 
FIRST NAME OF PAYEE 
PAY PERIOD END DATE 
REGULAR HOURS WORKED 
OVERTIME HOURS WORKED 
ANNUAL LEAVE HOURS TAKEN 
SICK LEAVE HOURS TAKEN 
HOLIDAY HOURS TAKEN 
ACCELERATION RATE 
TOTAL PAY OBLIGATION 
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G. TABLE 7: 

TRAVEL. 

DBF DATA 

ELEMENTS 

ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

PREPDATE 

DATE 

8 

DATE ORDERS PREPARED 

TRAVTYPE 

CHAR 

13 

TYPE OF TRAVEL 

PURPOSE 

CHAR 

15 

PURPOSE OF TRAVEL 

TRAVDATE 

DATE 

8 

PROCEED DATE 

ESTRTNDATE 

DATE 

8 

ESTIMATED RETURN DATE 

DOCNR 

CHAR 

9 

DOCUMENT NUMBER ASSIGNED TO 
TRAVEL ORDERS 

JON 

CHAR 

5 

JOB ORDER NUMBER 

PI 

CHAR 

5 

PRINCIPAL INVESTIGATOR CODE 

FLAGAPP 

CHAR 

1 

FLAG APPROVAL REQUIRED? 

LASTNAME 

CHAR 

15 

LAST NAME OF TRAVELER 

FIRSTNAME 

CHAR 

10 

FIRST NAME OF TRAVELER 

PLACE 

CHAR 

60 

TRAVELER'S ITINERARY 

PEREXP 

NUM 

7 

ESTIMATED PER DIEM CHARGE 

ACTPERD 

NUM 

7 

ACTUAL PER DIEM CHARGE 

TRANSEXPE 

NUM 

7 

ESTIMATED TRANSPORTATION 
CHARGE 

ACTTRANS 

NUM 

7 

ACTUAL TRANSPORTATION 

CHARGE 

REGEXP 

NUM 

7 

ESTIMATED REGISTRATION 
CHARGE 

ACTREG 

NUM 

7 

ACTUAL REGISTRATION 

CHARGE 

ESTPRICE 

NUM 

7 

ESTIMATED TOTAL TRAVEL 
CHARGE 

ACTAMT 

NUM 

7 

ACTUAL TRAVEL CHARGE 

ADPD 

DATE 

8 

ADVANCE PICKUP DATE 

TICPD 

DATE 

8 

TICKET PICKUP DATE 

REGPD 

DATE 

8 

REGISTRATION PICKUP DATE 
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ELEMENT 

TYPE 

WIDTH 

ADVCODE 

CHAR 

5 

ADVDATE 

DATE 

8 

ADVAMT 

NUM 

7 

CLAIMSUB 

LOG 

1 

CLAIMDATE 

DATE 

8 

CANC 

LOG 

1 

CANCDATE 

DATE 

8 


DESCRIPTION 

ADVANCE CODE 

DATE OF TRAVEL ADVANCE 

AMOUNT OF TRAVEL ADVANCE 

TRAVEL CLAIM SUBMITTED? 

DATE TRAVEL CLAIM 
SUBMITTED 

TRAVEL ORDERS CANCELED? 

DATE TRAVEL ORDERS 
CANCELED 
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H. TABLE 8: 

SUPPLY. 

DBF DATA 

ELEMENTS 

ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

DORDER 

DATE 

8 

DATE OF ORDER 

DOCNR 

CHAR 

9 

DOCUMENT NUMBER ASSIGNED 

JON 

CHAR 

5 

JOB ORDER NUMBER 

EXPELMNT 

CHAR 

9 

EXPENSE ELEMENT 

PI 

CHAR 

5 

PRINCIPAL INVESTIGATOR 

VENDOR 

CHAR 

20 

SUPPLIER OF REQUIREMENT 

ESTPRICE 

NUM 

9 

ESTIMATED PRICE 

DESC 

CHAR 

35 

DESCRIPTION 

CATEGORY 

CHAR 

5 

CATEGORY OF REQUIREMENT 

REQUESTOR 

CHAR 

2 

REQUESTOR CODE 

PRI 

CHAR 

3 

PRIORITY OF REQUIREMENT 

RDD 

DATE 

8 

REQUIRED DELIVERY DATE 

PONR 

CHAR 

12 

PURCHASE ORDER NUMBER 

PODATE 

DATE 

8 

PURCHASE ORDER DATE 

EDD 

DATE 

8 

ESTIMATED DELIVERY DATE 

RECDATE 

DATE 

8 

RECEIPT DATE 

PART 

LOG 

1 

PARTIAL SHIPMENT? 

PKUPDATE 

DATE 

8 

DATE MATERIAL PICKED UP 

CANC 

LOG 

1 

REQUIREMENT CANCELED? 

CANCDATE 

DATE 

8 

CANCELLATION DATE 

RTNREQDATE 

DATE 

8 

RETURN REQUEST DATE 

ACTPRICE 

NUM 

12 

ACTUAL PRICE 

ADP 

CHAR 

1 

ADP CODE 
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ELEMENT 

TYPE 

WIDTH 

DESCRIPTION 

DEPTEXP 

LOG 

1 

DEPARTMENT EXPENSE ITEM? 
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I. TABLE 9: 

DATABASE 
ACCTS.DBF 

DACCTS.DBF 

PERSONNE.DBF 

LABOR1.DBF 


TEMPLAB.DBF 

TRAVEL.DBF 


SUPPLY.DBF 


DATABASE INDEXES 

PRODUCTION INDEX FILE INDEX 


ACCTS.MDX 


DACCTS.MDX 


PERSONNE.MDX 


LABOR1.MDX 


TEMPLAB.MDX 


TRAVEL.MDX 


SUPPLY.MDX 


DATERECVD 
JONPI (JON+PI) 

PI 

REPORT (FUNDTYPE+JON) 
DIRECT ( JON+PI) 

JON 

NAME 

PI 

FACSTAFF 

IDCODE 

LASTNAME 

PI 

DIRECT (JON+PI) 

IDCODE 

JON 

LASTNAME 

PAYROLL 

(DTOC(PPE)+JON) 

PI 

PPE 

IDCODE 

JON 

LASTNAME 

PAYROLL 

PI 

DIRECT (JON+PI) 

DOCNR 

ESTRNDATE 

JON 

LASTNAME 

PI 

PREPDATE 
TRAVDATE 
CANCDATE 
CATEGORY 
DIRECT (JON+PI) 

DOCNR 

DORDER 

EXPELMNT 

JON 

PI 

PKUPDATE 
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J. TABLE 10: 

REPORT FILE 
AGING.FRG 
APPST30.FRG 

APPSTATU.FRG 
DELQTRAV.FRG 

FLAGAPP.FRG 

INDPAY.FRG 
LABCHGS.FRG 
OTHERPAY.FRG 

PERSON.FRG 
SUPCHG.FRG 
SUPSTAT.FRG 

TRAVPKUP.FRG 
TRAVSTAT.FRG 
EXPSUM.PRG 

DIRECT.PRG 


REPORTS 


VIEW FILE 


DESCRIPTION 


AGING.QBE 
APP30ST.QBE 

APPSTATU.QBE 
DELQTRAV.QBE 

FLAGAPP.QBE 

PAYREC.QBE 
LABCHGS.QBE 
OTHERPAY.QBE 

PERSON.QBE 


REQUISITION AGING 
HISTORY 

FLAGS FACULTY/STAFF 
WHOSE APPOINTMENT DATE 
IS WITHIN 30 DAYS OF 
EXPIRATION 
FACULTY/STAFF 
APPOINTMENT STATUS 
FLAGS PERSONNEL WITH 
DELINQUENT TRAVEL 
CLAIMS 

FLAGS TRAVEL ORDERS 
REQUIRING COMMAND 
APPROVAL 

CUMULATIVE PAYROLL 
DATA BY EMPLOYEE 
CUMULATIVE LABOR 
CHARGES BY ACCOUNT 
CUMULATIVE LABOR 
CHARGES BY ACCOUNT FOR 
FUNDS MANAGED BY OTHER 
DEPTS 

PERSONNEL ROSTER 


SUPCHG.QBE 
SUPSTAT.QBE 

TRAVPKUP.QBE 
TRAVSTAT.QBE 
N/A 

N/A 


CUMULATIVE OPTAR 
CHARGES BY ACCOUNT 
SUPPLY REQUISITION 
STATUS OF ALL 
REQUISITIONS 
FLAGS TRAVEL ORDERS 
WITH PICKUP ACTION DUE 
CUMULATIVE TRAVEL 
CHARGES BY ACCOUNT 
SUMMARY ACCOUNT STATUS 
OF REIMBURSABLE, 

DIRECT AND INDIRECT 
FUNDS 

FACULTY ALLOCATIONS OF 
"NA" FUNDING AND 
FINANCIAL STATUS OF 
EACH 
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APPENDIX B: FMIS PROGRAMS 


A. EXPSUM.PRG 


* ; *********************************************************** 

*: Program: EXPSUM.PRG 

*: 

*: System: Financial Management Information System 

*: Authors: LCDR N. S. Ford & LT N. W. Zimmon 

*: 


*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 


Uses: ACCTS.DBF 

: PERSONNE.DBF 
: LABOR1 DBF 
: SUPPLY.DBF 
: TRAVEL.DBF 


MDX files: 


ACCTS.MDX 
PERSONNE.MDX 
LABOR1.MDX 
SUPPLY.MDX 
TRAVEL.MDX 




SET TALK OFF 
CLEAR 


* -Open databases 

SELECT A 

USE accts ORDER jon 
SELECT B 

USE personne ORDER idcode 
SELECT C 

USE labor1 ORDER jon 
SELECT D 

USE supply ORDER jon 
SELECT E 

USE travel ORDER jon 

* -Set relationships 

SELECT A 

SET RELATION TO jon INTO labor1, jon INTO supply, jon INTO; 

travel 
SELECT C 

SET RELATION TO idcode INTO personne 

* -Print the report 

ON ESCAPE RETURN 
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PLINENO = 0 
SELECT A 
GO TOP 

* -Allow for selection of reporting period. 

SET ORDER TO REPORT 

enddate = { / / } 

fiscal = " " 

@ 8,20 SAY "Period ending date for report: " GET enddate 
READ 

@ 10,20 SAY "Fiscal year: " GET fiscal PICTURE "99" 

READ 

* -Establish grand total and other variables. 

ggttlfunds = 0 

ggtravel = 0 
ggttltchg = 0 
ggtbal = 0 
ggoptar = 0 
ggttlochg = 0 
ggobal = 0 
ggconsupaxnt = 0 
ggconsupchg = 0 
ggconsupbal = 0 
gglabor = 0 
ggsumpay = 0 
.jglbal = 0 
ggtchg = 0 
ggendbal = 0 
advance = 0 
pgno = 1 
CLEAR 

7 

7 

7 


*-Notify user of abort option. 

7SPACE(5),"Press the End key to abort print job..." 

SET CONSOLE OFF 
SET PRINT ON 

DO WHILE .NOT. EOF() .AND. INKEY() # 2 

*-Advance page at end of Reimbursable Account section. 

IF advance = 1 
EJECT 

_PLINEN0 = 0 
advance = 0 
ENDIF 

?"Page No. ", pgno PICTURE "99" 

?DATE() 

7 
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*-Report Heading 

?SPACE(60) /'ADMINISTRATIVE SCIENCES 
DEPARTMENT",SPACE(30),; 

"REVISED ",enddate 

?SPACE( 68 ),"FY ",fiscal," FUND STATUS" 
?"REIMBURSABLE FUND STATUS" 

•? 


?"ACCT " ," ","TOTAL"," ","TRAVEL",; 

II II HTDIUFT. 11 •• •* •• HfTPaTTPT.M • 


II 

","TRAVEL"," 

" " , "TRAVEL" , ,* 

If 

","OPTAR"," 

" ,"OPTAR",; 


II 

","OPTAR"," 

"/•CONSUP"," 

","CONSUP", 

If 

"/•CONSUP"," " 

,"LABOR"," 

","LABOR",; 

II 

"/'LABOR"," 

","TOTAL"," 

","ACCT 

II 

","EXP" 



?"NR 

","PI"," AUTH" 

ii ii n 

i t 

","AUTH",; 

ii 

" "EXP" " " 

, "BAL"," 

","AUTH",; 

ii 

","EXP"," 

","BAL"," 

","AUTH",; 

it 

","EXP"," 

","BAL"," 

","AUTH" 

ii 

","EXP"," 

","BAL"," 

","EXP",; 


II II 

/ ' 


"BAL"," "/'DATE" 
7REPLICATE,210) 


* -Establish subtotal variables. 

gttlfunds = 0 

gtravel = 0 
gttltchg = 0 
gtbal = 0 
goptar = 0 
gttlochg = 0 
gobal = 0 
gconsupamt = 0 
gconsupchg = 0 
gconsupbal = 0 
glabor = 0 
gsumpay = 0 
glbal = 0 
gtchg = 0 
gendbal = 0 

* -Search Account database for reimbursable type accts 

* -and sum individual account charges. 

SCAN FOR fundtype = "R" 

typefund = fundtype 

DO WHILE fundtype = typefund .AND. .NOT. EOF() 
job = jon 
sumpay = 0 
ttlochg = 0 
ttltchg = 0 
tconsup = 0 

*-Sums Labor charges. 

DO WHILE jon = job .AND. a->fundtype = typefund; 
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•AND. .NOT. EOF() 

SELECT C 
paydate = ppe 

DO WHILE ppe = paydate .AND. jon = job: 

.AND. a->fundtype = typefund .AND. .NOT.; 
EOF () 

IF ppe <= enddate 

sumpay = sumpay+totpay 
ENDIF 
SKIP 
ENDDO 
ENDDO 
SELECT A 

* -Sums Supply charges. 

DO WHILE jon = job .AND. a->fundtype = typefund; 
.AND. .NOT. EOF() 

SELECT D 

docdate = dorder 

DO WHILE dorder = docdate .AND. jon = job .AND.; 
a->fundtype = typefund .AND. .NOT. EOF() 

IF dorder <= enddate .AND. CANC # .T. 

IF category = "CS" 

tconsup = tconsup +; 

IIF(actprice=0,estprice,actprice) 

ELSE 

ttlochg = ttlochg + ; 

IIF(actprice=0,estprice,actprice) 

ENDIF 

ENDIF 

SKIP 

ENDDO 

ENDDO 

SELECT A 

* -Sums Travel charges. 

DO WHILE jon = job .AND. a->fundtype = typefund; 
.AND. .NOT. EOF() 

SELECT E 

pdate = prepdate 

DO WHILE prepdate = pdate .AND. jon = job .AND.; 
a->fundtype = typefund .AND. .NOT. EOF() 

IF prepdate <= enddate .AND. CANC # .T. 
priceest = perdexp+transexp+regexp 
ttltchg = ttltchg+IIF(actamt=0,; 
priceest,actamt) 

ENDIF 

SKIP 

ENDDO 

ENDDO 

* -Prints individual account totals and increments 

* -subtotal amounts. 
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SELECT A 

?jon,PI,TRANSFORM(ttlfunds,"9,999,999.99 M ),; 
TRANSFORM(travel,",999,999.99"),TRANSFORM; 

(tt1tchg,"999,999.99"),TRANSFORM; 
(travel-ttltchg,"9,999,999.99"),; 

TRANSFORM(optar,",999,999.99"),TRANSFORM; 
(ttlochg,"999,999.99"),TRANSFORM; 
(optar-ttlochg,"9,999,999.99"), ; 

TRANSFORM(consupamt,"999,999.99"),; 

TRANSFORM(tconsup,"999,999.99"),; 

TRANSFORM(consupamt-tconsup,"999,999.99"),; 
TRANSFORM(labor,"9,999,999.99"),TRANSFORM; 
(sumpay,"999,999.99"),TRANSFORM; 
(labor-sumpay,"9,999,999.99 H ),; 

TRANSFORM(sumpay+ttlochg+ttltchg,; 

"9,999,999.99"),TRANSFORM(ttlfunds-; 
sumpay-ttlochg-ttltchg,"9,999,999.99"),; 
SPACE(3),expdate 

gttlfunds = gttlfunds + ttlfunds 

gtravel = gtravel + travel 

gttltchg = gttltchg + ttltchg 

gtbal = gtbal + (travel-ttltchg) 

goptar = goptar + optar 

gttlochg = gttlochg + ttlochg 

gobal = gobal + (optar - ttlochg) 

gconsupamt = gconsupamt + consupamt 

gconsupchg = gconsupchg + tconsup 

gconsupbal = gconsupbal + (consupamt-tconsup) 

glabor = glabor + labor 

gsumpay = gsumpay + sumpay 

glbal = glbal + (labor-sumpay) 

gtchg = gtchg + (sumpay+ttlochg+ttltchg) 

gendbal = gendbal + (ttlfunds-sumpay-ttlochg-; 

ttltchg) 

SKIP 

ENDDO 

ENDSCAN 

* -Prints total account charges and increments grand 

* -totals. 

?REPLICATE("-",210) 

?"TOTAL:",TRANSFORM(gttlfunds,"9,999,999.99"),; 

TRANS FORM(gtrave1,"9,999,999.99"),TRANS FORM; 

(gttltchg,"9,999,999.99"),TRANSFORM; 

(gtbal,"9,999,999.99"),TRANSFORM(goptar,; 

"9,999,999.99"),TRANSFORM(gttlochg,; 

"9,999,999.99"),TRANSFORM;(gobal,"9,999,999.99"),; 

TRANSFORM(gconsupamt,"999,999.99"),; 

TRANSFORM(gconsupchg,"999,999.99"),; 

TRANSFORM(gconsupbal,"999,999.99"),; 
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TRANSFORM(glabor,”9,999,999.99"),TRANSFORM; 
(gsumpay,”9,999,999.99"),TRANSFORM(glbal,; 
"9,999,999.99"),TRANSFORM(gtchg,"9,999,999.99"),; 
TRANSFORM(gendbal,"9,999,999.99") 

7 

? REPLICATE("-",210) 
ggttlfunds = ggttlfunds + gttlfunds 
ggtravel = ggtravel + gtravel 
ggttltchg = ggttltchg + gttltchg 
ggtbal = ggtbal + gtbal 
ggoptar = ggoptar + goptar 
ggttlochg = ggttlochg + gttlochg 
ggobal = ggobal + gobal 
ggconsupamt = ggconsupamt + gconsupamt 
ggconsupchg = ggconsupchg + gconsupchg 
ggconsupbal — ggconsupbal + gconsupbal 
gglabor = gglabor + glabor 
ggsumpay = ggsumpay + gsumpay 
gglbal = gglbal + glbal 
ggtchg = ggtchg + gtchg 
ggendbal = ggendbal + gendbal 
advance = advance + 1 
pgno = pgno + 1 
ENDDO 

IF INKEY() = 2 
SET PRINT OFF 
EJECT 

SET CONSOLE ON 
RETURN 
ENDIF 


GO TOP 

*-Allows aborting of print job. 

DO WHILE .NOT. EOF() .AND. INKEY() # 2 


IF advance = 1 
EJECT 

_PLINENO = 0 
advance = 0 
ENDIF 

?"Page No. ", pgno PICTURE "99" 

*-Page heading. 

? DATE() 

7 

7SPACE(60),"ADMINISTRATIVE SCIENCES 
DEPARTMENT",SPACE(30),; 

"REVISED ",enddate 

?SPACE(68 ),"FY ", fiscal," FUND STATUS" 
?"DIRECT/INDIRECT FUND STATUS" 

7 
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?"ACCT ", " ","INITIAL"," ","ACTUAL"," ",; 

"TRAVEL", " ","TRAVEL"," ","TRAVEL",; 

" ","OPTAR"," ", "OPTAR"," ",; 

"OPTAR"," ","CONSUP"," ","CONSUP",; 

" ","CONSUP"," ","TOTAL"," ",; 

"ACCT"," ","FINAL" 

?"NR »,"PI"," AUTH"," AUTH",; 

" ","AUTH"," ","EXP"," ","BAL",; 

" ","AUTH"," ","EXP"," ","BAL",? 

" ","AUTH"," ","EXP"," ","BAL",; 

" ","EXP"," ","BAL"," ","BAL" 

? RE PLICATE("—",185) 
ginttlfunds = 0 
gttlfunds = 0 
gtravel = 0 
gttltchg = 0 
gtbal = 0 
goptar = 0 
gttlochg = 0 
gobal = 0 
gtchg = 0 
gconsupamt = 0 
gconsupchg = 0 
gconsupbal = 0 
gendbal = 0 
gfinbal = 0 

*-Sums account charges for Direct/Indirect accounts. 

SCAN FOR fundtype = "0 A 

typefund = fundtype 

DO WHILE fundtype = typefund .AND. .NOT. EOF() 
job = jon 
ttlochg = 0 
ttltchg = 0 
regchg = 0 
tconsup = 0 

*-Sums Supply charges. 

DO WHILE jon = job .AND. a->fundtype = typefund; 

.AND. .NOT. EOF() 

SELECT D 

docdate = dorder 

DO WHILE dorder = docdate .AND. jon = job .AND. 

a->fundtype = typefund .AND. .NOT. EOF() 
IF dorder <= enddate .AND. CANC # .T. 

IF category = "CS" 

tconsup = tconsup +; 

IIF(actprice=0,estprice,actprice) 

ELSE 

ttlochg = ttlochg +; 

IIF(actprice=0,estprice,actprice) 

ENDIF 

ENDIF 








SKIP 
ENDDO 
ENDDO 
SELECT A 

* -Sums Travel charges. 

DO WHILE jon = job .AND. a->fundtype = typefund; 
.AND. .NOT. EOF() 

SELECT E 

pdate = prepdate 

DO WHILE prepdate = pdate .AND. jon = job .AND 
a->fundtype = typefund .AND. .NOT. EOF() 
IF prepdate <= enddate .AND.; 

CANC # .T. 

priceest = perdexp+transexp 
regchg = regchg + IIF(actreg=0,regexp,; 
actreg); 

ttltchg = ttltchg + IIF(actamt=0,; 
priceest,actamt-IIF(actreg=0,; 
regexp,actreg)) 

ENDIF 

SKIP 

ENDDO 

ENDDO 

* -Prints individual account charges and 

* -increments subtotals. 

SELECT A 

?jon,PI,TRANSFORM(inttlfunds,"9,999,999.99"),; 
TRANSFORM(ttlfunds,"9,999,999.99"), ; 

TRANSFORM(travel,"9,999,999.99"),TRANSFORM; 
(ttltchg,"9,999,999.99"),TRANSFORM; 
(travel-ttltchg,"9,999,999.99"), ; 

TRANSFORM(optar,"9,999,999.99"),; 

TRANSFORM(ttlochg+regchg,"999,999.99"), ; 
TRANSFORM(optar-(ttlochg+regchg),"99,999.99"), 
TRANSFORM(consupamt,"999,999.99"),; 

TRANSFORM(tconsup,"999,999.99"),; 

TRANSFORM(consupamt-tconsup,"999,999.99"),; 
TRANSFORM((ttlochg+regchg)+ttltchg+; 
tconsup,"9,999,999.99"),TRANSFORM(ttlfunds-; 
(ttlochg+regchg)-ttltchg-tconsup,; 
"9,999,999.99"),TRANSFORM(inttlfunds-; 
(ttlochg+regchg)-ttltchg-; 
tconsup,"9,999,999.99") 
ginttlfunds = ginttlfunds + inttlfunds 
gttlfunds = gttlfunds + ttlfunds 
gtravel = gtravel + travel 
gttltchg = gttltchg + ttltchg 
gtbal = gtbal + (travel-ttltchg) 
goptar = goptar + optar 
gttlochg = gttlochg + (ttlochg+regchg) 
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gobal = gobal + (optar - (ttlochg+regchg)) 
gconsupamt = gconsupamt + consupamt 
gconsupchg = gconsupchg + tconsup 
gconsupbal = gconsupbal + (consupamt-tconsup) 
gtchg = gtchg + (ttlochg+regchg+ttltchg+tconsup) 
gendbal = gendbal + (ttlfunds-(ttlochg+regchg) 
tt 1 tchg-tconsup) 

gfinbal = gfinbal + (inttlfunds-(ttlochg+regchg) 
ttltchg-tconsup) 

SKIP 

ENDDO 
ENDSCAN 

* -Prints account charges subtotals and increments grand 

* -totals. 

?REPLICATE(",18 5) 

?"TOTAL:",SPACE(5),TRANSFORM(ginttlfunds,"9,999,999.99"),; 
TRANSFORM(gttlfunds,"9,999,999.99") , ; 

TRANSFORM(gtravel,"9,999,999.99"),TRANSFORM(gttltchg,; 
"9,999,999.99"),TRANSFORM(gtbal,"9,999,999.99"), ; 
TRANSFORM(goptar,"9,999,999.99"),TRANSFORM(gttlochg,; 
"999,999.99"),TRANSFORM(gobal,"9,999,999.99"), ; 
TRANSFORM(gconsupamt,"999,999.99"),TRANSFORM; 
(gconsupchg,"999,999.99"),TRANSFORM(gconsupbal,; 
"999,999.99"),TRANSFORM(gtchg,"9,999,999.99") , ; 
TRANSFORM(gendbal,"9,999,999.99"),TRANSFORM; 

(gfinbal,"9,999,999.99") 

?REPLICATE("-",185) 

ggttlfunds = ggttlfunds + gttlfunds 
ggtravel = ggtravel + gtravel 
ggttltchg = ggttltchg + gttltchg 
ggtbal = ggtbal + gtbal 
ggoptar = ggoptar + goptar 
ggttlochg = ggttlochg + gttlochg 
ggobal = ggobal + gobal 
ggconsupamt = ggconsupamt + gconsupamt 
ggconsupchg = ggconsupchg + gconsupchg 
ggconsupbal = ggconsupbal + gconsupbal 
ggtchg = ggtchg + gtchg 
ggendbal = ggendbal + gendbal 
advance = advance + 1 
pgno = pgno + 1 


ENDDO 

*-Allows aborting of print job. 

IF INKEY () = 2 
SET PRINT OFF 
EJECT 


40 






SET CONSOLE ON 
RETURN 
ENDIF 
? 

SELECT A 
GO TOP 

* -Sets index for detailed Direct/Indirect account charges 

* -report. 

SET ORDER TO REPORT 

* -Establishes required variables. 

tregtrav = 0 

titotrav = 0 
tpcctrav = 0 
tedotrav = 0 
ttqmtrav = 0 
gttltchg = 0 
gtbal = 0 
tsupchg = 0 
thonorchg = 0 
tregchg = 0 
gconsupchg = 0 
gconsupbal = 0 
gttlochg = 0 
gobal = 0 

* -Report heading. 

?"DETAILED DIRECT/INDIRECT FUND STATUS" 

7 

?"ACCT "," ","REGULAR"," ”,"ITO"," ","PCC",? 

" ","EDO"," ","TQM"," ","TOTAL",; 

» ","TRAVEL"," ","SUPPLY",; 

" "," ","REG",; 

" SUP EXP"," ","OPTAR"," ","CONSUP"," ","CONSUP" 

?"NR "," ","TRAVEL"," ","TRAVEL"," ",; 

"TRAVEL"," ","TRAVEL"," ","TRAVEL"," ",; 

"TRAVEL EXP"," ","BALANCE"," ","EXP",; 

" ii t •• HONOR" , ;" FEE " , " TOTAL" , ; 

" ","BALANCE"," ","EXP"," ","BALANCE" 

?REPLICATE("-",180) 

* -Sum individual account charges. 

DO WHILE .NOT. EOF() .AND. INKEY () # 2 
job = jon 
ttlochg = 0 
ttltchg = 0 
regchg = 0 
tconsup = 0 

*-Select Direct/Indirect accounts. 

DO WHILE jon = job .AND. .NOT. EOF() 

IF fundtype = "0" 

SELECT E 
pcctrav = 0 
edotrav = 0 
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tqmtrav = 0 
itotrav = 0 

SCAN FOR jon = job WHILE a->fundtype = "0" 

* -Sum Travel charges. 

IF prepdate <= enddate .AND. CANC # .T. 
priceest = perdexp+transexp 
IF travtype = "ITO M 

itotrav = itotrav + IIF(actamt=0,; 
priceest,actamt - IIF(actreg=0,; 
regexp,actreg)) 

ELSE 

IF travtype = "PCC" 

pcctrav = pcctrav + IIF(actamt=0,; 
priceest,actamt-IIF(actreg=0,; 
regexp,actreg)) 

ELSE 

IF travtype = ,, EDO" 

edotrav = edotrav + IIF(actamt=0, 
priceest,actamt-IIFCactreg^O,; 
regexp,actreg)) 

ELSE 

IF travtype = "TOM" 
tqmtrav = tqmtrav; 

+ IIF(actamt=0,priceert,; 
actamt-IIF(actreg=0,; 
regexp,actreg)) 

ENDIF 

ENDIF 

ENDIF 

ENDIF 

regchg = regchg + IIF(actreg=0,regexp,; 
actreg) 

ttltchg = ttltchg + IIF(actamt=0,priceest, 
actamt-IIF(actreg,regexp,actreg)) 

ENDIF 
ENDSCAN 
SELECT D 
honorchg = 0 
regfee = 0 

SCAN FOR jon = job WHILE a->fundtype = "0" 

* -Sum Supply charges. 

IF dorder <= enddate .AND. CANC # .T. 

IF category = M H0 H 

honorchg = honorchg +; 

IIF(actprice=0,estprice,actprice) 

ELSE 

IF category = "CS” 

tconsup = tconsup +; 

IIF(actprice=0,estprice,actprice) 

ELSE 

ttlochg = ttlochg +; 
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IIF(actprice=0,estprice,actprice) 

ENDIF 
ENDIF 
ENDIF 
ENDSCAN 
SELECT A 

* -Print individual account charges and increment 

* -subtotal amounts. 

?j on,SPACE(3) ,TRANSFORM(ttltchg-itotrav-pcctrav-; 
edotrav-tqmtrav,”999,999.99 M ),SPACE(1),; 
TRANSFORM (itotrav,"99,999.99"),; 

SPACE(1),TRANSFORM; 

(pcctrav ,"99,999.99"),SPACE(1),TRANSFORM; 
(edotrav,"99,099.99"),TRANSFORM; 

(tqmtrav,"99,999.99"),SPACE(1),TRANSFORM; 
(ttltchg, "999,999.99"),SPACE(1),; 

TRANSFORM(travel-ttltchg,; 

"999,999.99"),SPACE(1),TRANSFORM(ttlochg,; 
"999,999.99"),SPACE(6),TRANSFORM; 

(honorchg,"99,999.99"),SPACE(1),TRANSFORM; 
(regchg,"99,999.99"),TRANSFORM; 
(ttlochg+honorchg+regchg,"999,999.99"), ; 
TRANSFORM(optar-(ttlochg+regchg+honorchg),; 
"999,999.99"),TRANSFORM(tconsup,"999,999"), ; 
TRANSFORM(consupamt-tconsup,"999,999.99") 
tregtrav = tregtrav + (ttltchg-itotrav-pcctrav-; 

edotrav-tqmtrav) 
titotrav = titotrav + itotrav 
tpcctrav = tpcctrav + pcctrav 
tedotrav = tedotrav + edotrav 
ttqmtrav = ttqmtrav + tqmtrav 
gttltchg = gttltchg + ttltchg 
gtbal = gtbal + (travel-ttltchg) 
tsupchg = tsupchg + (ttlochg-honorchg) 
thonorchg = thonorchg + honorchg 
tregchg = tregchg + regchg 

gttlochg = gttlochg + (ttlochg+regchg+honorchg) 
gobal = gobal + (optar-(ttlochg+regchg+honorchg)) 
gconsupchg = gconsupchg + tconsup 
gconsupbal = gconsupbal + (consupamt-tconsup) 

ENDIF 

SKIP 

ENDDO 

ENDDO 

*-Enables aborting of print job. 

IF INKEY () = 2 
SET PRINT OFF 
EJECT 

SET CONSOLE ON 
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RETURN 

ENDIF 


* -Print detailed total account charges. 

?REPLICATE(",180) 

?"TOTAL: " ,SPACE(2) ,TRANSFORM(tregtrav,"999,999.99") , ; 

SPACE(1), TRANSFORM(titotrav,"99,999.99"),; 

SPACE(1),TRANSFORM (tpcctrav,"999,999.99"),; 

SPACE(1),TRANSFORM(tedotrav,; 

"999,999.99"),SPACE(1),TRANSFORM(ttqmtrav, M 999,999.99"),; 
TRANSFORM(gttltchg,"999,999.99"),SPACE(1),TRANSFORM; 
(gtbai,"999,999.99 "),space( i) /Transform; 
(tsupchg,"999,999.99 "),space(7) transform; 

(thonorchg,"99,999.99"), ; 

SPACE(1),TRANSFORM(tregchg,"99,999.99")/TRANSFORM; 
(gttlochg,"999,999.99"),SPACE(2),TRANSFORM(gobal,; 
"999,999.99"),TRANSFORM(gconsupchg,"999,999.99"), ; 

TRANS FORM(gconsupba1,"999,999.99") 

?REPLICATE("-",180) 

* -Eject page 

EJECT 

PLINENO = 0 


*-Page heading. 

?"Page No. ", pgno PICTURE "99" 

?DATE() 

7 

7SPACE(64),"ADMINISTRATIVE SCIENCES DEPARTMENT",SPACE(30),; 

"REVISED ",enddate 
? S PACE(72),"GRAND TOTALS" 

7SPACE(62),"REIMBURSEABLE/DIRECT/INDIRECT FUNDS" 

7 

7 


"ACCT " ," ","TOTAL"," ", 

" ","TRAVEL"," ","TRAVEL" 

" ","OPTAR"," ","OPTAR"," 

" ","CONSUP"," ","CONSUP"," 

" ","LABOR"," ","LABOR"," 

"TOTAL"," ","ACCT" 

"NR ","PI"," AUTH"," ","i 

ii '* "RAT." " *• . ,, ATI P PH I 


lL" , " ", "TRAVEL" , ; 

","TRAVEL"," ","OPTAR",; 

","OPTAR"," ","CONSUP",; 

" "LABOR",; 


t 

II 


"TOTAL 

NR 
» 

i 
i 


! • 


AUTH"," 
","BAL"," 

","BAL"," 

","BAL"," 

","BAL"," 


ii ii 


","AUTH"," 
AUTH"," 


AUTH", " 

","AUTH"," 


ii ii 

","EXP",; 
","EXP",; 

•I HPYOII • 


EXP" 


*-Print grand total of all account charges. 

7REPLICATE("-",190) 

7"GRAND" 

?"TOTAL:",TRANSFORM(ggttlfunds,"9,999,999.99"),; 
TRANSFORM(ggtravel,"9,999,999.99") , ; 

TRANSFORM(ggttltchg,"9,999,999.99"),; 
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TRANSFORM(ggtbal, ''9,999,999.99") , ; 

TRANSFORM(ggoptar,"999,999.;9"),TRANSFORM; 

(ggttlochg,"999,999.99"),TRANSFORM(ggobal,"999, 999 . 99 ") • 
TRANSFORM(ggconsupamt,"999,999.99"),TRANSFORM; 
(ggconsupchg, "999,999.99"),TRANSFORM; 

(ggconsupbal,"999,999.99"),; 

TRANSFORM(gglabor,"9,999,999.99"),; 

TRANSFORM(ggsumpay,"9,999,999.99"),TRANSFORM; 

(gglbal,"9,999,999.99"),TRANSFORM; 

(ggtchg,"9,999,999.99"),; 

TRANSFORM(ggendbal,"9,999,999.99") 

?REPLICATE(,190) 

* Close databases and clear printer. 

CLOSE DATABASES 
EJECT 

SET PRINT OFF 
SET CONSOLE ON 
*: EOF: EXPSUM.PRG 
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B 


DIRECT.PRG 


*•********************************************************** 
* 


*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 


Program: DIRECT.PRG 

System: Financial Management Information System 
Authors: LCDR N. S. Ford & LT N. W. Zimmon 


Calls: D_PGBRK.PRG 

Uses: DACCTS.DBF 

: PERSONNE.DBF 
: SUPPLY.DBF 
: TRAVEL.DBF 


MDX files: 


DACCTS.MDX 
PERSONNE.MDX 
SUPPLY.MDX 
TRAVEL.MDX 


*;********************************************************** 


SET TALK OFF 
CLEAR 

*-Open databases 


SELECT A 

USE daccts ORDER PI 
SF7LCT B 

USE personne ORDER idcode 
SELECT C 

USE supply ORDER DIRECT 
SELECT D 

USE travel ORDER DIRECT 

* -Set relationships 

SELECT A 

SET RELATION TO jon INTO supply, jon INTO travel 

* -Print the report 

ON ESCAPE RETURN 
_PLINENO = 0 

ON PAGE AT LINE 57 DO d_pgbrk 
enddate = { / / } 

fiscal = " " 

@ 10,20 SAY "Period ending date for report: " GET enddate 
READ 

@ 12,20 SAY "Fiscal year: " GET fiscal PICTURE "99" 

READ 

SET STATUS OFF 
SET SCOREBOARD OFF 
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CLEAR 

7 

7 

7 

7SPACE(5) , "Press the End key to abort print job..." 

SET CONSOLE OFF 
SET PRINT ON 
pgno = 1 

?"Page No. ", pgno PICTURE "99" 

? DATE() 

7 

7SPACE(60),"ADMINISTRATIVE SCIENCES DEPARTMENT",SPACE(30), 
"REVISED ",enddate 

?SPACE( 68 ),"FY ",fiscal," NA FUND STATUS" 

7 

?" ","TRAVEL"," ","TRAVEL",; 

" ","TRAVEL"," ","OPTAR"," ","OPTAR"," 

"REG"," ","OPTAR +"," ","OPTAR"," ","CONSUP",; 

" ","CONSUP"," ", "CONSUP"," ","TOTAL",; 


" ","ENDING" 

?"NAME "," PI"," AUTH"," ","EXP",? 

•I II IlnATlI II II H »» H iTT'T’HH •• •* •I'PYPH 


II 

","BAL"," 

", " ","AUTH"," 

","EXP",; 

II 

","FEES"," 

","REG FEES"," 

", "BAL",; 

II 

","AUTH"," 

","EXP"," 

","BAL",; 

II 

","EXP"," 

"," BAL" 


?REPLICATE("-",180) 




gttlfunds = 0 
gtravel = 0 
gttltchg = 0 
gtbal = 0 
goptar = 0 
gttlochg = 0 
gregchg = 0 
gobal = 0 
gconsupamt = 0 
gconsupchg = 0 
gconsupbal = 0 
gopreg = 0 
gtchg = 0 
gendbal = 0 

*-Sum "NA" charges for each Principal Investigator. 

DO WHILE .NOT. EOF() .AND. INKEY() # 2 

pir = PI 
ttlochg = 0 
ttltchg = 0 
regchg = 0 
tconsup = 0 

DO WHILE PI = pir .AND. .NOT. EOF() 

*-Sums Optar and Contract Support charges. 
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SELECT C 

SCAN FOR PI = pir WHILE jon = "NA" 

IF dorder <= enddate .AND. CANC # .T. 

IF category = "CS" 
tconsup = tconsup; 

+ IIF(actprice=0,estprice,actprice) 

ELSE 

ttlochg = ttlochg; 

+ IIF(actprice=0,estprice f actprice) 

ENDIF 

ENDIF 

ENDSCAN 

* -Sums Travel charges. 

SELECT D 

SCAN FOR PI = pir WHILE jon = "NA" 

IF prepdate <= enddate .AND. CANC # .T. 
priceest = perdexp + transexp 
regchg = regchg + IIF(actreg=0,regexp,; 
actreg) 

ttltchg = ttltchg + IIF(actamt=0,priceest,; 
actamt- IIF(actrea=0,regexp,actreg)) 

ENDIF 

ENDSCAN 

* -Prints Travel, Optar and Contract Support charges 

* -for each Principal Investigator. 

SELECT A 

?name,PI,TRANSFORM(travel,"999,999.99"),TRANSFORM; 
(ttltchg, "999,999.99") , TRANSFORM (travel-ttltchg, ,♦ 
"999,999.99"),TRANSFORM(optar,"999,999.99"),; 
TRANSFORM (ttlochg, "999,999.99") , ,* 

TRANSFORM(regchg,"999,999.99"),TRANSFORM; 
(ttlochg+regchg,"9,999,999.99"), ; 

TRANSFORM(optar-(ttlochg+regchg),"999,999.99"),; 
TRANSFORM(consupamt,"999,999.99"),TRANSFORM; 

(tconsup,"999,999.99"),TRANSFORM(consupamt-; 
tconsup, "999,999.99"),TRANSFORM(ttltchg+ttlochg+; 
regchg+tconsup,"9,999,999.99"), ; 

TRANSFORM(optar+travel+consupamt-(ttltchg+ttlochg+; 
regchg+tconsup),"9,999,999.99") 
gtravel = gtravel + travel 
gttltchg = gttltchg + ttltchg 
gtbal = gtbal + (travel-ttltchg) 
goptar = goptar + optar 
gttlochg = gttlochg + ttlochg 
gregchg = gregchg + regchg 
gopreg = gopreg + (ttlochg + regchg) 
gobal = gobal + (optar - (ttlochg+regchg)) 
gconsupamt = gconsupamt + consupamt 
gconsupchg = gconsupchg + tconsup 
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gconsupbal = gconsupbal + (consupamt-tconsup) 
gtchg = gtchg + (ttlochg+regchg+ttltchg+tconsup) 
gendbal = gendbal + ((travel+optar+consupamt)-ttlochg; 

-regchg-tt1tchg-tconsup) 

SKIP 

ENDDO 

ENDDO 

* -Allows aborting of print job when End key is pressed. 

IF INKEY() = 2 

EJECT 

SET PRINT OFF 
SET CONSOLE ON 
ENDIF 

* -Prints total "NA" charges by charge type. 

? REPLI CATE (»'=", 18 0) 

?”TOTAL:",SPACE(10),TRANSFORM(gtravel, n 9,999,999.99"),; 

TRANS FORM(gtt11chg,"9,999,999.99"),TRANSFORM; 

(gtbal,"9,999,999.99"),TRANSFORM; 

(goptar,"9,999,999.99"),TRANSFORM; 

(gtt1ochg,"999,999.99"),TRANS FORM; 

(gregchg,"9,999,999.99"),; 

TRANSFORM(gopreg,"999,999.99"),;TRANSFORM; 

(gobal,"9,999,999.99"),TRANSFORM; 

(gconsupamt,"999,999.99"),; 

TRANSFORM(gconsupchg,"999,999.99"),TRANSFORM; 

(gconsupbal,"999,999.99"),TRANSFORM; 

(gtchg,"9,999,999.99"),TRANSFORM(gendbal,"9,999,999.99") 

CLOSE DATABASES 
EJECT 

SET PRINT OFF 
SET CONSOLE ON 
SET STATUS ON 
*: EOF; DIRECT.PRG 
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C. ACCTPROC.PRO 


*j********************************************************** 

*: Program: ACCTPROC.PRG 

*: 

*: System: Financial Management System 

*: Author: LCDR N. S. Ford & LT N. W. Zimmon 

*: 


*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 
*: 


Procs & Fncts: ISJON() 

: ISPI() 

: ISIDCODE() 
: PAYROLL 
: PAYEDIT 
: SUPIMP 
: SUPUP 
: RECRENDX 
: D_PGBRK 
: RESTORE 
: SRCHPER 
: SRCHJON 
: SRCHDNR 
: SRCHALOT 
: SRCHTRAV 
: SRCHLAB 


*: 

*;***********************************************«********** 
*-This overall procedure file is named ACCTPROC 


*-Validate Job Order Number 

*i ********************************************************** 


* i 

* i 

Function: 

ISJON() 

* 1 

Called by: 

SUPPLY.FMT 

* i 


DACCTS.FMT 

* i 


TRAVEL.FMT 

* j 

* i 


LABOR.FMT 


*i********************************************************** 

FUNCTION isjon 
PARAMETERS mjon 


DO CASE 


*-If user is exiting, do nothing 

CASE mjon = " " 

ok = .T. 


*-jon was entered 

CASE SEEK(mjon,"Accts") 
ok = .T. 
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OTHERWISE 
ok =. F. 

ENDCASE 
RETURN (ok) 

* -Validate Principal Investigator 

* I ********************************************************** 


*! 

Function: 

ispio 

* i 



* 1 

Called by: 

SUPPLY.FMT 

* i 

• 

• 

DACCTS.FMT 

* I 

• 

• 

TRAVEL.FMT 

* i 




*!********************************************************** 
FUNCTION ispi 
PARAMETERS mpi 

DO CASE 

* -If user is exiting, do nothing 

CASE mpi = " " 

ok = .T. 

* -PI was entered 

CASE SEEK(mpi,"Personne”) 

ok = .T. 

OTHERWISE 
ok =.F. 

ENDCASE 
RETURN (ok) 

*-Validate IDCODE 

*i********************************************************** 



* i 

Function: 

ISIDCODE() 

* 

* i 




* i 

Called by: 

LABOR.FMT 


* i 




*i********************************************************** 

FUNCTION isidcode 
PARAMETERS midcode 

DO CASE 

*-If user is exiting, do nothing 

CASE midcode = " " 

ok = .T. 
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*-IDCODE was entered 

CASE SEEK(midcode,"Personne") 
ok = .T. 

OTHERWISE 
ok =.F. 

ENDCASE 
RETURN (ok) 

* -Calculates individual payroll amounts using a temporary 

* -database, then adds new records to permanent database 

* -file. 

* J ********************************************************** 


* I 

Procedure: 

PAYROLL 

*! 



*! 

Uses: 

TEMPLAB.DBF 

*! 


PERSONNE.DBF 

*! 


LAB0R1.DBF 

* i 



*! 

MDX files: 

TEMPLAB.MDX 

* i 


PERSONNE.MDX 

*! 


LABOR1.MDX 

* i 




*J********************************************************** 

PROCEDURE payroll 

SET TALK OFF 
SELECT A 

USE tempiab ORDER idcode 
SELECT B 

USE personne ORDER idcode 
SELECT C 

USE laborl ORDER idcode 
SELECT A 

SET RELATION TO idcode INTO personne 
GO TOP 

DO WHILE .NOT. EOF() 

REPLACE totpay WITH ROUND(((b->basesal/2080)*; 

(reghrs+(1.5*othrs))*(1 +accrate)),2) 

REPLACE lastname WITH b->lastname 
REPLACE firstname WITH b->firstname 
SKIP 
ENDDC 

CLOSE DATABASES 
USE laborl 
APPEND FROM tempiab 
CLOSE DATABASES 

SET SAFETY OFF 
USE templab 
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ZAP 

CLOSE DATABASES 
RETURN 

* -Enables editing/updating of payroll records using a 

temporary 

* -database, then adds edited records back to permanent 

database. 

ft!********************************************************** 


* 1 

Procedure: 

PAYEDIT 

*1 



*! 

Uses: 

TEMPLAB.DBF 

*! 


LABOR1.DBF 

*! 


PERSONNE.DBF 

*! 


ACCTS.DBF 

*! 



* i 

MDX files: 

TEMPLAB.MDX 

* i 


LABOR1.MDX 

* i 


PERSONNE.MDX 

* t 


ACCTS.MDX 

* i 



* 1 

********************************************************** 


PROCEDURE payedit 


SELECT A 
USE templab 
SET DELETED ON 
APPEND FROM laborl 
REINDEX 

SET ORDER TO payroll 

GO TOP 

SELECT B 

USE laborl 

SET SAFETY OFF 

ZAP 

SET SAFETY ON 
SELECT C 

USE personne ORDER PI 

SET RELATION TO PI INTO templab 

SELECT D 

USE accts ORDER jon 

SET RELATION TO jon INTO templab 

SELECT A 

RETURN 
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* -Enables importing of supply information for supply 

* -database from remotely located computer. 

* j ********************************************************** 


* i 

Procedure: 

SUPIMP 

*! 



* i 

Uses: 

SUPPLY.DBF 

* I 



* i 

MDX files: 

SUPPLY.MDX 

* i 




* t ********************************************************** 

PROCEDURE supimp 

SET TALK ON && Show progress 
USE supply 
SET SAFETY OFF 
ZAP 

APPEND FROM B:\supply && Append from low-density drive 

REINDEX 

SET SAFETY ON 

CLOSE DATABASE 

SET TALK OFF && Suppress progress messages 
RETURN 

* -Procedure for importing Account and Personnel databases 

* -into remotely located computer. Enables validation of 

* -Account/Personnel information for entering/editing of 

* -supply transactions. 

*i********************************************************** 


*! 

Procedure: 

SUPUP 

*! 



*! 

Uses: 

ACCTS.DBF 

*! 

• 

• 

DACCTS.DBF 

*! 

• 

PERSONNE.DBF 

*! 



*! 

-P■? l • 

ACCTS.MDX 

*! 

• 

• 

DACCTS.MDX 

*! 

• 

• 

PERSONNE.MDX 

*! 




*!********************************************************** 
PROCEDURE supup 

SET TALK ON && Show progress 
SET SAFETY OFF 
USE accts 
ZAP 

APPEND FROM A:\accts 

REINDEX 

USE daccts 

ZAP 

APPEND FROM A:\daccts 
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REINDEX 

USE personne 

ZAP 

APPEND FROM A:\personne 
REINDEX 

SET TALK OFF && Suppress progress messages 
RETURN 

*-Procedure for re-indexing databases. 

4r I *★★★*****★**★★****★★***★★★★**★**★*****★*******★**★★★****★* 


* i 

Procedure 

RECRENDX 

*! 



*! 

Uses 

ACCTS.DBF 

* i 


DACCTS.DBF 

* ! 


PERSONNE.DBF 

*! 


LAB0R1.DBF 

*! 


SUPPLY.DBF 

*! 


TRAVEL.DBF 

* i 


TEMPLAB.DBF 

*! 



★! 

MDX files 

ACCTS.MDX 

*! 


DACCTS.MDX 

* i 


PERSONNE.MDX 

*! 


LABOR1.MDX 

* i 


SUPPLY.MDX 

*! 


TRAVEL.MDX 

* 1 


TEMPLAB.MDX 

* j 



*i********************************************************** 

PROCEDURE recrendx 

SET 

TALK ON && Show progress 

USE 

accts 


REINDEX 


USE 

daccts 


REINDEX 


USE 

personne 


REINDEX 


USE 

laborl 


REINDEX 


USE 

supply 


REINDEX 


USE 

travel 


REINDEX 


USE 

templab 


REINDEX 


SET 

TALK OFF && Suppress progress messages 

RETURN 
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* -Page break procedure for "NA Summary Report". 

*1 ********************************************************** 
*! Procedure: D_PGBRK 

*! 

* I ********************************************************** 

PROCEDURE d_pgbrk 

EJECT PAGE 
pgno = pgno + 1 

?"Page No. ", pgno PICTURE "99" 

?DATE() 

7 

7 

?SPACE(60), "NA Summary - Continued" 

7 

7 

RETURN 

* -Procedure for restoring backed-up database files 

* j********************************************************** 


*! 

Procedure 

RESTORE 

* j 



*1 

Uses 

ACCTS.DBF 

*! 


DACCTS.DBF 

* i 


PERSONNE.DBF 

*! 


LABOR1.DBF 

*! 


SUPPLY.DBF 

*! 


TRAVEL.DBF 

*! 


TEMPLAB.DBF 

*! 



* i 

MDX files 

ACCTS.MDX 

*! 


DACCTS.MDX 

*! 


PERSONNE.MDX 

*! 


LABOR1.MDX 

*! 


SUPPLY.MDX 

*! 


TRAVEL.MDX 

*! 


TEMPLAB.MDX 

*! 




*j ********************************************************** 

PROCEDURE RESTORE 

SET TALK ON && Show progress 
SET SAFETY OFF 
USE accts 
ZAP 

APPEND FROM A:\accts 

REINDEX 

USE daccts 

ZAP 

APPEND FROM A:\daccts 
REINDEX 
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USE personne 
ZAP 

APPEND FROM A:\personne 

REINDEX 

USE laborl 

ZAP 

APPEND FROM A:\laborl 

REINDEX 

USE supply 

ZAP 

APPEND FROM A:\supply 

REINDEX 

USE travel 

ZAP 

APPEND FROM A:\travel 

REINDEX 

USE templab 

ZAP 

APPEND FROM A:\templab 
REINDEX 

SET TALK OFF && Suppress progress messages 
RETURN 


* -The following are procedures for searching databases for 

* -editing records. 

*i ********************************************************** 


* 1 

* 1 

Procedure: 

SRCHPER 

* I 

* 1 

Calls: 

PERSONNE.FMT 

* i 

* i 

Uses: 

PERSONNE.DBF 

* i 

* i 

MDX files: 

PERSONNE.MDX 

* i 

Formats: 

PERSONNE.FMT 


*! 

*j********************************************************** 

PROCEDURE srchper 
SET TALK OFF 

USE personne ORDER lastname 

SET ESCAPE OFF 

SET STATUS OFF 

SET SCOREBOARD OFF 

SET NEAR ON 

searching = .T. 

DO WHILE searching 
CLEAR 
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memlname = SPACE(15) 

@10,2 SAY "Enter last name of person to look for: 
memlname 
READ 

* -If nothing entered, exit. 

IF memlname = " " 

SET FORMAT TO personne 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ENDIF 

* -Try to find that person. 

SEEK UPPER(memlname) 

IF FOUND() 

SET FORMAT TO personne 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ELSE 

@22,0 CLEAR 

?"Can't find", memlname 
WAIT 
ENDIF 

ENDDO 

RETURN 


" GET 
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********************************************************** 


* i 

Procedure: 

SRCHJON 

* i 



* I 

* i 

Calls: 

ACCTS.FMT 

* i 

Uses: 

ACCTS.DBF 

* i 



* i 

MDX files: 

ACCTS.MDX 

* j 



*! 

Formats: 

ACCTS.FMT 


********************************************************** 


PROCEDURE srchjon 


SET TALK OFF 
USE accts ORDER jon 
SET ESCAPE OFF 
SET STATUS OFF 
SET SCOREBOARD OFF 
SET NEAR ON 
searching - .T. 


IX) WHILE searching 
CLEAR 

memjon = SPACE(5) 

@10,2 SAY "Enter Job Order No. to look for: " GET memjon 
READ 


*-If nothing entered, exit. 

IF memjon = " " 

SET FORMAT TO accts 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ENDIF 


*-Try to fin I that account. 

SEEK UPPER(memjon) 

IF FOUND() 

SET FORMAT TO accts 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 


ELSE 

@22,0 CLEAR 

?"Can't find", memjon 

WAIT 
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ENDIF 


ENDDO 

RETURN 

*i********************************************************** 


*! 

* f 

Procedure: 

SRCHDNR 

*! 

* i 

Calls: 

SUPPLY.FMT 

*! 

* 1 

Formats: 

SUPPLY.FMT 


************************************************************ 
PROCEDURE srchdnr 

* -Supply database opened through embedded code in the 

* -application program 

SET TALK OFF 
SET ESCAPE OFF 
SET STATUS OFF 
SET SCOREBOARD OFF 
SET NEAR ON 
searching = .T. 

DO WHILE searching 
CLEAR 

memdoc = SPACE (9) 

@10,2 SAY "Enter Document No. to look for: " GET memdoc 
READ 

* -If nothing entered, exit 

IF memdoc = " " 

SET FORMAT TO supply 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ENDIF 

* --pry to find that document number. 

SEEK UPPER(memdoc) 

IF FOUND() 

SET FORMAT TO supply 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 
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ELSE 

§22,0 CLEAR 
?"Can't find", memdoc 
WAIT 
ENDIF 

ENDDO 

RETURN 


* J ********************************************************** 


*! 

*! 

Procedure: 

SRCHALOT 

* i 

*! 

Calls: 

DACCTS.FMT 

* I 

*! 

Formats: 

DACCTS.FMT 


* j ********************************************************** 

PROCEDURE srchalot 

SET TALK OFF 
SET ESCAPE OFF 
SET STATUS OFF 
SET SCOREBOARD OFF 
SET NEAR ON 
searching = .T. 

DO WHILE searching 
CLEAR 

memname = SPACE(15) 

@10,2 SAY "Enter Lastname to look for: " GET memname 
READ 

* -If nothing entered, exit. 

IF memname = " " 

SET FORMAT TO daccts 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ENDIF 

* -Try to find that person. 

SEEK UPPER(memname) 

IF FOUND() 

SET FORMAT TO daccts 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 
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LOOP 


ELSE 

§22,0 CLEAR 
?"Can't find", memname 
WAIT 
ENDIF 

ENDDO 

RETURN 

* I ********************************************************** 


* J 

* i 

Procedure: 

SRCHTRAV 

*! 

*! 

Calls: 

TRAVEL.FMT 

*! 

* i 

Formats: 

TRAVEL.FMT 


* I ********************************************************** 

PROCEDURE srchtrav 

* -Travel database opened through embedded code in the 

* -application program 

SET TALK OFF 
SET ESCAPE OFF 
SET STATUS OFF 
SET SCOREBOARD OFF 
SET NEAR ON 
searching = .T. 

DO WHILE searching 
CLEAR 

memlname = SPACE(15) 

§10,2 SAY "Enter last name of traveler to look for: "; 

GET memlname 
READ 

* -If nothing entered, exit. 

IF memlname = " " 

SET FORMAT TO travel 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ENDIF 

* -Try to find that person. 

SEEK UPPER(memlname) 

IF FOUND() 


62 








SET FORMAT TO travel 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 


ELSE 

@22,0 CLEAR 

?"Can't find", memlname 
WAIT 
ENDIF 

ENDDO 


RETURN 


*i********************************************************** 

*! Procedure: SRCHLAB 

* * 

*! Calls: LABOR.FMT 

* I 

*! Formats: LABOR.FMT 

*! 

************************************************************ 
PROCEDURE srchlab 


* -Templab opened from embeded code in the application 

* -program. 

SET TALK OFF 

SET ORDER TO lastname 
SET ESCAPE OFF 
SET STATUS OFF 
SET SCOREBOARD OFF 
SET NEAR ON 
searching = .T. 

DO WHILE searching 
CLEAR 

memlname = SPACE(15) 

@10,2 SAY "Enter Last name of person to look for: "; 

GET memlname 
READ 


*-If nothing entered, exit. 

IF memlname = ” " 

SET FORMAT TO labor 
GO TOP 

EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 
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ENDIF 


*-Try to find that person. 

SEEK UPPER(memlname) 

IF FOUND() 

SET FORMAT TO labor 
EDIT NOAPPEND 
CLOSE FORMAT 
searching = .F. 

LOOP 

ELSE 

@22,0 CLEAR 

?"Can't find”, memlname 
WAIT 
ENDIF 

ENDDO 

RETURN 

*: EOF: ACCTPROC.PRG 
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APPENDIX C 


APPLICATION DOCUMENTATION 


Application Documentation for System: RMS.PRG 

Application Author: LCDR N. S. Ford and LT N. W. 

Zimmon 

dBASE Version.: 1.1 


Display Application Sign-On Banner: Yes 
Main Menu to Open after Sign-On: RMSMAIN.BAR 
Sets for Application: 


Bell 

ON 

Carry 

OFF 

Centry 

OFF 

Confirm 

OFF 

Delimiters 

OFF 

Display Size 
Drive 

25 lines 

Escape 

Path 

ON 

Safety 

ON 


Starting Colors for Application: 


Color Settings: 
Text 
Heading 
Highlight 


W+/B 

W+/B 

GR+/BG 
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Box 

Messages 

Information 

Fields 


GR+/BG 

W+/B 

B/W 

N/BG 


Database/View: accts 
Index Order: jon 


Layout Report for Horizontal Bar Menu: RMSMAIN 


Setup for RMSMAIN follows: 


Colors for Menu/Picklist: 


Color Settings: 
Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Before Menu dBASE Code RMSMAIN: 


SET PROCEDURE TO ACCTPROC 


Bar actions for Menu RMSMAIN follow: 


Bar: 1 
Prompt: 

ACCOUNTS 




Action: 

Open a Popup 

Menu 

Named: 

ACCTMENU 

Bar: 2 
Prompt: 
Action: 

PERSONNEL 
Open a Popup 

Menu 

Named: 

PERSMENU 

Bar: 3 
Prompt: 
Action: 

SUPPLY 

Open a Popup 

Menu 

Named: 

SUPPMENU 
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Bar: 4 


Prompt: 
Action: 

LABOR 
Open a 

Popup 

Menu 

Named: 

LABMENU 

Bar: 5 
Prompt: 
Action: 

TRAVEL 
Open a 

Popup 

Menu 

Named: 

TRAVMENU 

Bar: 6 
Prompt: 
Action: 

TOOLS 
Open a 

Popup 

Menu 

Named: 

TOOLMENU 

Bar: 7 
Prompt: 
Action: 

EXIT 
Open a 

Popup 

Menu 

Named: 

EXITMENU 


Layout Report for Popup Menu: ACCTMENU 


Setup for ACCTMENU follows: 


Use database/view and index file(s) in effect at run time. 
Colors for Menu/Picklist: 


Color Settings: 


Text : W+/N 

Heading : W+/ N 

Highlight : GR+/B 

Box : W+/R 

Messages : W+/Nf 

Information : B/W 

Fields : N/BG 


Before Menu dBASE Code ACCTMENU: 


SET STATUS OFF 
SET SCOREBOARD OFF 
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Bar actions for Menu ACCTMENU follow 


Bar: 1 

Prompt: ADD NEW ACCOUNTS 

Action: APPEND 

Format File: accts.fmt 

Before dBASE Code for this item: 


*-Open Accounts database 

USE personne ORDER pi 
USE accts 

After dBASE Code for this item: 


*-Close Accounts database 

CLOSE DATABASES 


Bar: 2 

Prompt: VIEW/EDIT ACCOUNTS 

Action: Run dBASE Program: DO SRCHJON 

Before dBASE Code for this item: 


*-Open Accounts database 

USE personne ORDER pi 
GO TOP 

After dBASE Code for this item: 


*-Close Accounts database 

CLOSE DATABASES 


Bar: 3 

Prompt: REMOVE MARKED ACCOUNTS 
Action: Pack Current File 

Window WIND0W1 FROM 10,10 TO 20,60 Double 
Before dBASE Code for this item: 


*-Pack Accounts database 

USE accts 

After dBASE Code for this item: 


*-Save changes and close database 

CLOSE DATABASES 
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Bar: 4 

Prompt: PRINT EXPENSE SUMMARY 
Action: Run dBASE Program: DO EXPSUM 

After dBASE Code for this item: 


SET PRINT OFF 
CLOSE DATABASES 


Bar: 5 

Prompt: PRINT OTHER LABOR REPORT 
Action: Run Report Form OTHERPAY.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: OTHERPAY.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 6 

Prompt: - 

Action: Text only defined for this option - NO ACTION 


Bar: 7 

Prompt: DIRECT FUND ALLOCATION 

Action: Open a Popup Menu Named: DACCMENU 


Layout Report for Popup Menu: PERSMENU 


Setup for PERSMENU follows: 


Use database/view and index file(s) in effect at run time. 
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Colors for Menu/Picklist 


Color Settings: 


Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu PERSMENU follow: 


Bar: 1 

Prompt: ADD NEW PERSONNEL 

Action: APPEND 

Format File: personne.fmt 

Before dBASE Code for this item: 


*-Open Personnel database 

USE personne 

After dBASE Code for this item: 


*-Close Personnel database 

CLOSE DATABASES 


Bar: 2 

Prompt: VIEW/EDIT PERSONNEL 

Action: Run dBASE Program: DO SRCHPER 

After dBASE Code for this item: 


*-Close Personnel database 

CLOSE DATABASES 


Bar: 3 

Prompt: REMOVE MARKED PERSONNEL 
Action: Pack Current File 

Window WINDOW3 FROM 10,10 TO 20,60 Double 
Before dBASE Code for this item: 


*-Open Personnel database 

USE personne 
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After dBASE Code for this item: 


*-Save changes and close database 

CLOSE DATABASES 


Bar: 4 

Prompt: PRINT PERSONNEL REPORT 
Action: Run Report Form PERSON.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: PERSON.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 5 

Prompt: PRINT APPT STATUS REPORT 
Action: Run Report Form APPSTATU.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: APPSTATU.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 6 

Prompt: PRINT 30 DAY APPT STATUS REPORT 
Action: Run Report Form APPST30.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: APPSTATU.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 
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Layout Report for Popup Menu: SUPPMENU 


Setup for SUPPMENU follows: 


Use database/view and index file(s) in effect at run time. 


Colors for Menu/Picklist: 


Color Settings: 
Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu SUPPMENU follow: 


Bar: 1 

Prompt: ADD NEW TRANSACTIONS 

Action: APPEND 

Format File: supply.fmt 

Before dBASE Code for this item: 


*-Open Supply database 

SELECT A 

USE personne ORDER pi 
SELECT B 

USE accts ORDER jon 
SELECT C 
USE supply 

SET RELATION TO pi INTO personne, jon INTO accts 
After dBASE Code for this item: 


*-Close Supply database 

CLOSE DATABASES 
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Bar: 2 

Prompt: VIEW/EDIT TRANSACTIONS 
Action: Run dBASE Program: DO SRCHDNR 

Before dBASE Code for this item: 


*-Open Supply database 

SELECT A 

USE personne ORDER pi 
GO TOP 
SELECT B 

USE accts ORDER jon 
GO TOP 
SELECT C 

USE supply ORDER docnr 

SET RELATION TO pi INTO personne, jon INTO accts 
After dBASE Code for this item: 


*-Close Supply database 

CLOSE DATABASES 


Bar: 3 

Prompt: REMOVE MARKED TRANSACTIONS 
Action: Pack Current File 

Window WINDOW4 FROM 10,10 TO 20,60 Double 
Before dBASE Code for this item: 


*-Open Supply database 

USE supply 

After dBASE Code f< whis item: 


*-Save changes and close database 

CLOSE DATABASES 


Bar: 4 

Prompt: PRINT AGING REPORT 
Action: Run Report Form AGING.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: AGING.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 
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Bar: 5 

Prompt: PRINT OUTSTANDING REQN REPORT 
Action: Run Report Form SUPSTAT.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: SUPSTAT.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


^ar: 6 

Prompt: PRINT SUPPLY OBLIGATION REPORT 
Action: Run Report Form SUPCHG.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View SUPCHG.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 7 

Prompt: PRINT REQN STATUS REPORT 
Action: Run Report Form SUPRQNST.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: SUPRQNST.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Layort Report for Popup Menu: LABMENU 


Setup for LABMENU follows: 


Use database/view aj.d index file(s) in effect at run time. 
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Colors for Menu/Picklist: 


Color Settings: 


Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Bo* 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu LABMENU follow: 


Bar: 1 

Prompt: ADD PAYROLL RECORDS 

Action: APPEND 

Format File: labor.fmt 

Before dBASE Code for this item: 


*-Open Temporary Labor database 

SELECT A 

USE personne ORDER idcode 
SELECT B 

USE accts ORDER jon 
SELECT C 
USE templab 

SET RELATION TO idcode INTO personne, jon INTO accts 
After dBASE Code for this item: 


* -Update Labor database and save 

CLOSE DATABASES 

* -Calls Payroll procedure from Acctproc file 

DO PAYROLL 


Bar: 2 

Prompt: VIEW/EDIT/DELETE PAYROLL RECORDS 
Action: Run dBASE Program: DO SRCHLAB 

Use database/view and index file(s) in effect at run time. 
Before dBASE Code for this item: 


*-Open databases 

DO PAYEDIT 
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After dBASE Code for this item: 


* -Close Labor database 

CLOSE DATABASES 

* -Call Payroll procedure from Acctproc file 

DO PAYROLL 


Bar: 3 

Prompt: PRINT LABOR EXPENSE REPORT 
Action: Run Report Form LABCHGS.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: LABCHGS.QBE 

After dtASE Code for this item: 


SET CONSOLE ON 


Bar: 4 

Prompt: PRINT PAYRECORD REPORT 
Action: Run Report Form INDPAY.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: PAYREC.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Layout Report for Popup Menu: TRAVMENU 


Setup for TRAVMENU follows: 


Use database/view and index file(s) in effect at run time. 


76 













Colors for Menu/Picklist: 


Color Settings: 


Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu TRAVMENU follow: 


Bar: 1 

Prompt: ADD NEW ORDER 

Action: APPEND 

Format File: travel.fmt 

Before dBASE Code for this item: 


*-Open Travel database 

SELECT A 

USE personne ORDER pi 
GO TOP 
SELECT B 

USE accts ORDER jon 
GO TOP 
SELECT C 
USE travel 

SET RELATION TO pi INTO personne, jon INTO accts 
After dBASE Code for this item: 


*-Close Travel database 

CLOSE DATABASES 


Bar: 2 

Prompt: VIEW/EDIT ORDERS 

Action: Run dBASE Program: DO SRCHTRAV 

Before dBASE Code for this item: 


*-Open Travel databases 

SELECT A 

USE personne ORDER pi 
GO TOP 
SELECT B 

USE accts ORDER jon 
GO TOP 
SELECT C 
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USE travel ORDER lastname 

SET RELATION TO pi INTO personne, jon INTO accts 
After dBASE Code for this item: 


*-Close Travel database 

CLOSE DATABASES 


Bar: 3 

Prompt: REMOVE MARKED ORDERS 
Action: Pack Current File 

Window WINDOW6 FROM 10,10 TO 20,60 Double 
Before dBASE Code for this item: 


*-open Travel database 

USE travel 

After dBASE Code for this item: 


*-Close and save changes 

CLOSE DATABASES 


Bar: 4 

Prompt: PRINT TRAVEL OBLIGATION REPORT 
Action: Run Report Form TRAVSTAT.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: TRAVSTAT.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 5 

Prompt: PRINT TRAVEL TICKLER REPORT 
Action: Run Report Form TRAVPKUP.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: TRAVPKUP.QBE 
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After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 6 

Prompt: PRINT DELINQUENT TRAVEL CLAIM 
Action: Run Report Form DELQTRAV.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: DELQTRAV.QBE 

After dBASE Code for this item: 


SET CONSOLE OFF 


Bar: 7 

Prompt: REPORT 

Action: Text only defined for this option - NO ACTION 


Bar: 8 

Prompt: PRINT FLAG APPROVAL STATUS 
Action: Run Report Form FLAGAPP.frm 
Command Options: 

PLAIN 

NOEJECT 

Print Mode: Send to Default Printer 
New Database/View: FLAGAPP.QBE 

After dBASE Code for this item: 


SET CONSOLE ON 


Bar: 9 

Prompt: REPORT 

Action: Text only defined for this option - NO ACTION 


Layout Report for Popup Menu: TOOLMENU 


Setup for TOOLMENU follows: 


Use database/view and index file(s) in effect at run time. 
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Colors for Menu/Picklist: 


Color Settings: 


Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu TOOLMENU follow: 


Bar: 1 

Prompt: BACKUP DATA TO DRIVE A 
Action: Run Dos Program - COPY *.DBF A: 


Bar: 2 

Prompt: IMPORT SUPPLY DATA 

Action: Run dBASE Program: DO SUPIMP 

Window IMP FROM 10,5 TO 20,75 Single 


Bar: 3 

Prompt: REBUILD CORRUPTED INDEXES 
Action: Run dBASE Program: DO RECRENDX 
Window RENDX FROM 10,5 TO 20,75 Double 


Bar: 4 

Prompt: RESTORE DATABASES FROM 
Action: Run dBASE Program: DO RESTORE 
Window REST FROM 10,5 TO 20,75 Single 


Bar: 5 

Prompt: DRIVE A 

Action: Text only defined for this option - NO ACTION 


Bar: 6 

Prompt: EXPORT ACCT/PERS DATA 
Action: Run Dos Program - COPY *.DBF B: 
Window EXP FROM 10,5 TO 20,75 Single 
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Layout Report for Popup Menu: EXITMENU 


Setup for EXITMENU follows: 


Use database/view and index file(s) in effect at run time 


Colors for Menu/Picklist: 


Color Settings: 
Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu EXITMENU follow: 


Bar: 1 

Prompt: QUIT TO DOS 
Action: Quit to DOS: 


Layout Report for Popup Menu: DACCMENU 


Setup for DACCMENU follows: 


Colors for Menu/Picklist: 


Color Settings: 


Text 

W+/N 

Heading 

W+/N 

Highlight 

GR+/B 

Box 

W+/R 

Messages 

W+/N 

Information 

B/W 

Fields 

N/BG 


Bar actions for Menu DACCMENU follow: 


Bar: 1 

Prompt: ADD NEW ALLOCATIONS 

Action: APPEND 

Format File: daccts.fmt 
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Before dBASE Code for this item 


*-Open Direct Account database 

SELECT A 

USE personne ORDER pi 
SELECT B 

USE accts ORDER jon 
SELECT C 
USE daccts 

SET RELATION TO pi INTO personne, jon INTO accts 
After dBASE Code for this item: 


*-Close Direct Account database 

CLOSE DATABASES 


Bar: 2 

Prompt: VIEW/EDIT ALLOCATIONS 
Action: Run dBASE Program: DO SRCHALOT 

Before dBASE Code for this item: 


*-Open Direct Account database 

CLOSE DATABASES 
SELECT A 

USE personne ORDER pi 
GO TOP 
SELECT B 

USE accts ORDER jon 
GO TOP 
SELECT C 

USE daccts ORDER name 

SET RELATION TO pi INTO personne, jon INTO accts 
After dBASE Code for this item: 


*-Close Direct Account database 

CLOSE DATABASES 

Bar: 3 

Prompt: REMOVE MARKED ALLOCATIONS 
Action: Pack Current File 

Window WINDOW2 FROM 10,10 TO 20,60 Double 
Before dBASE Code for this item: 


*-Open Direct Account database 

USE daccts 
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After dBASE Code for this item: 


*-Save changes and close database 

CLOSE DATABASES 


Bar: 4 

Prompt: PRINT NA SUMMARY 

Action: Run dBASE Program: DO DIRECT 

After dBASE Code for this item: 


SET PRINT OFF 
CLOSE DATABASES 


End of Application Documentation 
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APPENDIX D: USER'S GUIDE 


TO THE ADMINISTRATIVE SCIENCE DEPARTMENT'S 
FINANCIAL MANAGEMENT INFORMATION SYSTEM 

A. INTRODUCTION 

The purpose of this user's manual is to familiarize the 
user with the AS Department's Financial Management Information 
System (FMIS), as well as to provide some background 
information which may be used by more experienced personal 
computer users. Access to the various databases and reports 
is gained by selecting the desired action from pull-down 
menus. The system is very easy to use but does require some 
knowledge with regard to specific requirements at various data 
entry points. Wherever possible, these requirements are 
treated by the program as "multiple choice" entries in 
formatted data entry screens; that is, only allowed choices 
are available to the user. Also, the user should note that 
the built-in validation procedures also put limitations on 
data entry. These topics are addressed in this manual where 
appropriate. Finally, sample program "screens" are presented 
to aid in familiarization. 

B. GETTING STARTED 

Before running FMIS, the dBASE IV system program must be 
installed on a hard disk as specified in the dBASE IV 
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installation guide. Next, the FMIS system application files 
must be loaded onto the hard disk and stored in a sub¬ 
subdirectory of the dBASE IV directory. The hard disk storage 
space requirements are as follows: (1) dBASE program - 3.5 to 
4.5 MB, and (2) FMIS - 1.5 MB. Therefore, a minimum of 10 
Megabytes of available hard disk storage space is required. 
If the system is used by other departments with large 
databases, more hard disk storage space is recommended. 

To run the application, simply type "FMIS" at the DOS 
prompt. The FMIS.BAT file will automatically access the 



appropriate subdirectories, start dBASE IV and execute the 


application. The "Welcome Screen" (Figure D. 1) will then 
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appear. A path command in the DOS autoexec.bat file should 
include the subdirectory in which the dBASE IV program files 
are stored. Figure D.2 provides an example startup batch 
file. 

Another way to start the application is from the dBASE 
Control Center. This is done by highlighting the application 
name "RMS" under the Application column, pressing enter and 
responding appropriately to the on screen prompts. 

Finally, the system can also be started from the dBASE 
"dot prompt". This is done by entering "DO RMS" and pressing 
the Enter key. 

C. MENUS 

Each functional area or module, i.e., Accounts, Personnel, 
Supply, etc., is displayed across the top of the screen. 
Through each menu, all operations of the system, from data 

FMIS.BAT 

ECHO OFF 
CD C:\DBASE 
CD C:\DBASE\FMIS 
DBASE RMS 

NOTE: THE DBASE IV PROGRAM FILES ARE STORED IN THE 
"DBASE" SUBDIRECTORY. THE FMIS SYSTEM FILES ARE 
STORED IN THE "FMIS" SUBDIRECTORY. THE "DBASE RMS" 
COMMAND EXECUTES BOTH THE DBASE PROGRAM AND THE 
APPLICATION. 

Figure D.2 Startup Batch File 
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entry to report preparation, can be performed. As can be seen 
on the screen (Figure D.3), the menu for accessing the 
Accounts module is displayed. Other modules may be accessed 
by pressing the left or right arrow keys. As these keys are 
pressed, each newly selected module's menu will pop-up. When 
the desired menu is displayed, item selection may be made by 
pressing the up or down arrow keys. When the desired 
selection is highlighted, pressing the Enter key will initiate 
the action. Table D.l is a summary of the keys used to 
navigate the pull-down menus. 

Table D.l Keys Used to Navigate Pull-Down Menus. 


• Left arrow key moves to the module option 
to the left. 

• Right arrow key moves to the module option 
to the right. 

• Down arrow moves down to the next available 
menu option on the current pull-down menu. 

- Up arrow moves up to the next available 
menu option on the current pull-down menu. 

• PgDn moves to the last available option on 
the current pull-down menu. 

• End same as PgDN. 

• PgUp moves to the first available option on 
the current pull-down menu. 

• Home same as PgUp. 

• Enter selects the currently highlighted 
option. 

• First letter of any option selects that 
option. 

• Esc exits the system or backs up to the 
Accounts menu when in the Direct Accounts 
menu. 
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As mentioned above, access to each module is accomplished 


through its menu. 


Specific operations include adding, 


PERSONNEL SUPPLY LABOR TRAUEL TOOLS EXIT 


ADD HEM ACCOUNTS 
UIEU/EDIT ACCOUHTS 
REHOUE HARKED ACCOUHTS 
PRINT EXPENSE SUHHARY 
FRIHT OTHER LABOR REPORT 

DIRECT FUND ALLOCATION 


Position: «iT Select: 4— 1 Help: PI 


Figure D.3 Accounts Menu 

editing, and deleting data, report generation and general 
database maintenance. Data entry and editing commands are the 
same for each module. For example, making an "Add Data" 
selection in any module will call up a formatted data entry 
screen for inputing data. The data entry process, that is, 
keying in the data, is performed in the same manner for each. 


It is important to note that two methods are employed to 
help alleviate input errors during data entry and editing. 
The first is a validation process. This occurs when entering 













data into the Job Order Number (JON) and Principal 
Investigator (PI) fields of the data entry formats of the 
Direct Account, Supply, Travel and Labor modules. The system 
will not allow the user to create a new record unless a valid 
JON and PI code is entered in the appropriate field. The 
second method is that of creating "multiple choice" entry 
fields. This allows the input of only predetermined entries. 
A record cannot be established with other than one of those 
choices. The following sections will discuss each module and 
point out specific data entry requirements or processes. 

1. The Accounts Module 

The Accounts module is used for management of the 
various fund accounts. Within this module accounts and their 
related authorized funding levels are established and 
maintained. Also, summary obligation reports are generated 
from this menu. Lastly, this menu also allows entry to the 
Direct Accounts Module, a subsidiary of the Accounts Module. 
Figure D.3 depicts the system with the Accounts menu active. 
a. Add New Accounts 

To add new accounts, select "Add New Accounts" from 
the Accounts menu above. Making this selection will display 
a formatted data entry screen (see Figure D.4). Keyboard 
commands for data entry are listed in Table D.2. 

It is important to note two aspects of entering 
data in this screen. First, the second data entry field asks 








Table D.2 Navigation and Editing keys for Data Entry/Editing 
Screens 


• Enter key in the first data field without 
entering data will result in the return to 
the Account menu without saving the record. 

• Enter key after data is entered completes 
entry and moves to next field. 

• Down arrow key moves cursor down. 

• Up arrow key moves cursor up. 

• Right arrow key moves cursor right one 
character. 

• Left arrow key moves cursor left one 
character. 

• PgDn key moves down one record on edit 
screen or one screenful where annotated in 
screen format. 

• PgUp key moves up on record on edit screen 
or one screenful where annotated in screen 
format. 

• Del key deletes character over cursor. 

• Backspace key moves left one character, 
erasing along the way. 

• Ctrl-End keys pressed simultaneously saves 
the new record or editing changes. 

• Ctrl-Y keys pressed simultaneously deletes 
all characters to right of cursor. 

• Ctrl-U keys pressed simultaneously marks 
record for deletion. 


Ins 

key 

switches 

between 

Insert 

and 

Overwrite 

modes. 




Home 

key 

moves to 

first 

character 

in 


current field. 

• End key moves to last character in current 
field. 

• Tab key moves to next field. 

• Shift-Tab keys pressed simultaneously moves 
to previous field. 

• Esc key leaves current record without 
saving record or changes if editing. 


for account type. Enter "R” for Reimbursable, ”0" for Direct/ 
Indirect, and "X" for labor accounts not directly managed but 
charged by the department. Signifying "X" will segregate all 
transactions citing the account's JON from summary reporting. 
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Enter/Edit Account Information 


Job Order Ho: 
Sponsor: 
Title: ■ 


(li)einbursable/(0)ther/E(X)tr«: | PI: 
HIPR: 



Expiration Date: 
Serial t2: 


Trauel: 
Labor : 
OP TAR : 
Contract Support: 

Total Available Funds: 



Dept. Expense (V/tt): | 
Budget Page Date: M58KSM 
Project Order | 


Total Initial Funding: 


D:\dbaseiivtenp2\rtCCTS ||Rcc E0F/50 


Figure D.4 Add New Accounts Screen 

Total obligations for these labor charges are reported in the 
"Other Labor Report", a menu option in this module. Second, 
the JON entry field is used as a validation check by the 
Direct Account, Supply, Labor and Travel modules. An 
incorrect JON may prohibit transaction entry in one of those 
modules. 


b. View/Edit Accounts 

To view or edit account information, select 
"View/Edit Accounts". Once this selection is made, the search 
screen displayed in Figure D.5 will appear. This screen 
allows you to specify the JON you wish to view/edit, and will 
cause the system to go directly to that record and display its 
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data. If the JON entered is not found during the search, a 
message will appear and ask you to try again. Pressing Enter 
with no entry will result in the display of the first sorted 
JON. 

Each record will be displayed by a view/edit screen 
as shown in Figure D.6. New records may not be added from 
this or any edit screen in the system. Commands listed in 
Table D.2 are also used for editing records. 

Deleting a record is a two-step operation. First, 
the Ctrl-U command is used in the editing screen to mark the 
record(s) for deletion. Once the record has been marked, 
other records can then be viewed or edited. The Ctrl-End key 
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Enter/Edit Account Information 


Job Order No: 
Sponsor: J 

Title: _ 

Date Received: 
Serial 11: 


OOcinbursabley(0)ther/E(X)tra: J PI: 
HIPR: 


HAEE miHHAY HUPPER CHAIR IN ES 


10'01/3U 


Expiration Date: 



| Serial *2: 7 


| Budget Page Date: | 



Funding 

Travel: 
Labor : 
OPTAR : 
Contract Support: 

Total Available Funds: 


0.00 

0.00 

30,000.00 

0.00 


Dept. Expense (V/N): J| 
. Page Date: 

Project Order (V/N): 2 


Total Initial Funding: 


30.000.00 


dit 1 

ID:sdbasciivtcnpZsACCTS 

|Rec 42250 

pile I] H 

Mum 


Figure D.6 Account View/Edit Screen 

is then used when all editing is complete. This saves the 
deletion mark with the record. The record can be unmarked by 


returning to the edit screen, selecting the record and using 
the Ctrl-U command. The second step in the deletion process 
is described below. 


c. Remove Marked Records 

The final step in deleting a record (s) is by 
selecting the "Remove Marked Records" option from the Accounts 
menu. This will permanently remove each marked record from 
the database and automatically perform any necessary data file 
maintenance. 
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d. Reports 


Two report options are available in the Account 
module. Either report may be generated by highlighting the 
desired report and pressing the Enter key. 
e . Direct Fund Allocation 

The purpose of the Direct Accounts module is to set 
up fund authorization to Direct-Funded research Droject 


ICCOUNTS PERSONNEL SUPPLY LABOR TRAVEL TOOLS EXIT 


ADD MEW ACCOUNTS 

VIEUxEDII ACCOUNTS 

REMOVE NARKED ACCOUNTS 
PRINT EXPENSE SUNNARY 

PRINT OTHER LABOR REPORT 


DIRECT FUND ALLOCATION 


ADD NEW ALLOCATIONS 
UIEU/EDIT ALLOCATIONS 
REMOVE NARKED ALLOCATIONS 
PRINT NA SUNNARY 


Position: Select: 4— 1 help: PI 


Figure D.7 Direct Accounts Menu 


accounts for summary financial reporting purposes. Selecting 
the "Direct Fund Allocations" option will gain access to the 
Direct Accounts Module. An additional menu, as displayed in 
Figure D.7 will appear. 
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Selecting the "Add New Allocations" option will 
display the data entry screen shown in Figure D.8. This 
allows the establishment of new allocations and related 
funding authorization. Of note, the JON and PI field entries 


EnteivEdlt Direct Account Information 



Trawel. 

Optar: 

Contract Support: 



TotaI: 


0.00 


dit 

|D:\dbaseiiNtcnp2\DflCCTS 1 

|Rec EOF/-16 

pilel If 

Hun 


Figure D.8 Add New Allocation Screen 

are validated against the Accounts and Personnel databases. 
This ensures that the account and faculty member have been 
established in the system thus assuring correct accrual of 
obligations. 

Selecting "View/Edit Allocations" will result in 
first a search screen requesting the name of the faculty 
member to whom the allocation was made, and then an edit 
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Figure D.9 Personnel Menu 

screen. Once again, deleting a record is a two step process. 
The record(s) to be deleted must be marked. Then the "Remove 
Marked Allocations" option should be selected to remove the 
record from the data file. 


One report is available from within the Direct 
Accounts Module. It is generated by selecting the "Print NA 
Summary" option. 

2. The Personnel Module 


The Personnel module (Figure D.9) provides the ability 
to maintain personal information about AS Department personnel 
(faculty and staff) while storing data used by the other 
system modules for both relational and validation purposes. 
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a. Add Nev Personnel 


Creating a new record in this module requires use 
of two screens for data entry. Figures D.10 and D.ll show the 
data entry screens to establish a new employee record. When 
in screen one, access screen two by pressing the PgDn key. 
The new screen will appear and the cursor will be positioned 
in the "Remarks” field. To return to screen one, press the 
PgUp key, or to add additional new records, press the PgDn 
key. 

The "Remarks" field in the second screen makes use 
of a Memo field. The memo field is a free-format area to 
enter a block of text. No specific entry format is required. 
To enter a remark, press the F9 key. Information can be typed 
directly into the field, however, it will start to "scroll" 
out of the "Remarks" window as the space is filled. Pressing 
the F3 key again will open the Memo field so that all data 
entered may be viewed or edited. Pressing F9 again will close 
the field. Tc save the entered information, press the Ctrl 
and End keys simultaneously. To add additional records press 
the PgDn key, or to save the new record and return to the 
Personnel menu, press the Ctrl and End keys a second time. 

There are two data entry fields that warrant 
special attention. The "Principal Investigator" (PI) field is 
used by the Direct Accounts, Supply, Travel and Labor modules 
for validation purposes. Also, the "ID Code" field is used by 
the Labor module to extract information such as name and base 
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salary when processing payroll transactions. 


View/Edit Personnel 


To view or edit personnel records requires the use 


of two screens as discussed above. Selecting "View/Edit 


Personnel" will result in first a search screen requesting the 
last name of the person whose record is to be viewed, and then 
an edit screen in which changes may be made. 
c. Remove Marked Personnel 

Selecting this option will remove from the 
Personnel data file all records previously marked for 
deletion. 
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Inter/Edit Personnel Informat loi 


Remarks: 



^PgUp Preulous fage 


it gl>:\.. .tcnp2\PERS0MWE ||Bec EOF/OO gFile g || WurtCaps 


Figure 0.11 Add New Personnel - Screen 2 
d. Reports 

Three report options are available and may be 
selected from the Personnel menu by highlighting the desired 
report option and pressing the Enter key. 

3. The Supply Module 

The purpose of the Supply module is to record 
transaction information for each procurement or requisition 
action carried out by the department. In addition to the 
financial data collected, it also provides tools for the 
supply clerk to facilitate requisition processing, follow-up 
and validation. 
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ICCDUHTS 


PERSUHNEL SUPPLY LABOR TRAUEL TOOLS EXIT 


E 

ADD NEW TRANSACTIONS 
UIEU/EDIT TRANSACTIONS 
RENOVE NARKED TRANSACTIONS 
PRINT AGING REPORT 
PRINT OUTSTANDING REfJN REPORT 
PRINT SUPPLY OBLIGATION REPORT 
PRINT REQN STATUS REPORT 


Position: *-*lT Select: A — 1 Help: FI 


Figure D.12 Supply Menu 

a. Add Supply Transactions 

Selecting "Add New Transactions" from the menu as 
displayed in Figure D.12 will allow recording of each supply 
requirement. The data entry screen, as shown in Figure D.13, 
will validate the JON and PI field entries against the Account 
and Personnel data file to ensure that the account and the 
principal investigator have been established in the system. 

In the "Category" field, there are two categories 
that are currently tracked. They are honorariums and contract 
support. To enable summary reporting of honorariums and 
contract support, enter "HO" or "CS" respectively. Other 


category codes as required may be entered in this field. 
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Figure D.13 Add New Transaction Menu 
view/Edit Transactions 


Selecting "View/Edit Transactions" from the Supply 
module menu will allow viewing or editing of individual 
transactions. A search screen allows a search by document 
number. Editing may then be accomplished. 

c. Remove Marked Transactions 

Selecting this option will remove from the data file those 
records previously marked for deletion. 

d. Reports 

Several reports are available in this module and 
may be selected by highlighting the desired option and 
pressing the Enter key. 
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4. The Labor Module 

The purpose of the Labor module is to allow for 
recording of all payroll actions for financial reporting 
purposes. The module also maintains payroll data for 
individual employees including pay-to-date, hours worked, 
leave taken, etc. 

a. Add Payroll Records 

Selecting the "Add Payroll Records" from the 
Payroll module menu displayed in Figure D.14 will allow entry 
of payroll data into the system. Using the input from the "ID 
Code" field, the data entry screen (Figure D.15) will 
automatically extract name and base salary information from 
the Personnel module, make all required calculations, and 
store the name and total pay information into their respective 
fields. The name and total pay calculation will not appear on 
the screen until the user leaves the record. 

b. View/Edit/Delete Payroll Records 

Selecting "View/Edit/Delete Payroll Records" from 
the Labor module menu allows viewing, editing or deletion of 
individual payroll records. Again, a search screen based on 
last name is provided to allow direct access to specific 
records. The deletion process is different in this module in 
that its not the same two step process as described 
previously. When records are marked for deletion, they are 
permanently removed from the data file when the edit screen is 
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c. Reports 

There are two reports available in this module and 
may be selected by highlighting the desired option and 
pressing the Enter key. 

5. The Travel Module 

The purpose of the Travel module is to allow the 
management of travel orders both for financial and processing 
purposes. This includes tracking/tickler reports for 
delinquent travel claim tracking, "pickup" dates, and tracking 
orders requiring "Flag" approval. 
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Figure D.15 Add Payroll Records Screen 
a. Add New Travel orders 

Selecting "Add New Travel Orders" from the menu 


shown in Figure D.16 allows entry of new orders into the 
system. This data entry format uses two screens for data 
input as was the case in the Personnel module, and moving 
between screens is the same. Figures D.17 and D.18 show the 
two data entry screens used in the Travel module. 

There are several fields that have specific data 
input requirements. The "Type of Travel" field provides a 
"multiple choice" format for inputing data. The options 
represent specific travel types that are tracked separately 
and are selected by pressing the Space bar. The selections 
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PERSONNEL SUPPLY LABOR TRAVEL 


EXIT 



TOOLS 


J 


ADD KEU ORDER 
VIEIL'EDII ORDERS 
REMOVE MARKED ORDERS 
PRINT TRAVEL OBLIGATION REPORT 
PRINT TRAVEL TICKLER REPORT 
PRINT DELINGQUENT TRAVEL CLAIM 
REPORT 

PRINT FLA6 APPROVAL STATUS 
REPORT 


Position: *~»JT Select: 1 Help: FI 


Figure D.16 Travel Module Menu 

are "Regular", "ITO", "TQM", "PCC", and "EDO". Next, when 
canceling a travel order, entering a "Y" in the "Canceled 
(Y/N)" field will automatically exclude it from financial 
obligation totals without the need to zero out any previously 
entered dollar amounts. Finally, the "Claim Submitted? (Y/N)" 
will automatically set to "N" and must be changed to "Y" to 
clear the travel order from delinquency tracking. 
b. View/Edit Travel Orders 

Selecting the "View/Edit Travel Orders" option from 
the Travel module menu will allow viewing or editing of travel 
orders. A search screen is initially displayed which allows 
a search by traveler’s last name. 
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Selecting this option from the Travel menu will 
permanently remove all records marked for deletion from the 
data file. 

d. Reports 


Several reports are available from the Travel menu 
and may be selected by highlighting the desired option and 
pressing the Enter key. 

6. Tools Module 

The purpose of the Tools module is to provide various 
file maintenance utilities needed to effectively manage the 
FMIS. These include database backup and restoration, 
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Enter/Edit Travel Information (Page Z) 


Est. Travel Expenses 
Per Die*: 

TransportatIon: 
Registration: 



Actual Travel Expenses 
Per Die*: 

TransportatIon: 
Registration: 


u 

UU 

0 

(id 

0 

Od 


Total Est. Price: 


Pickup Dates 
Advance: 
Ticket: 
Registration: 


Claim Submit ted (Y/tQ : | 
Claim Date: 


$8.96 



Total Actual taount: 

Travel Advance Code: 
Advance Date: 
Advance taount: 


Canceled (¥/M>: | 
Cancellation Date: 



PgUp Previous Page 


dit | 

]D :\dbasei i\tenp2\TRflUEL I 

[Bee EOF/62 

[[File II II 

Man 


Figure D.18 Add Travel Orders - Screen 2 

reindexing of data files and exporting/importing database 
files to and from the personal computer where supply 
transactions are processed (these are interim procedures while 
awaiting the network installation of the system). The various 
Tool options are selected from the menu displayed in Figure 
D. 19. 

a. Backup Data to Drive A 


» Selecting this option backups all database files. 

It does not, however, backup the memo field contained in the 
Personnel module. Prior to initiating this option, be sure 
that a formatted data disk is placed in the A drive. 
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Selecting "Import Supply Data" allows the importing 
of Supply data files from the desk where supply processing is 
conducted. Place the disk containing the data in the B drive 
and select the menu option. The old data files will be erased 
and the new data will be appended to the Supply database file. 

t 

Reindexing will be accomplished automatically. 

c. Rebuild Corrupted indexes * 


This selection should be run whenever there is an 


unexpected loss of power as this might cause the indexes to 
become corrupted. This will cause the system to fail and 
display an error message specifying a problem with an index. 
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d. Restore Database Files from Drive A 

Selecting this option will restore a previous 
backup of all system databases. Place the disk containing the 
files in drive A and make the selection. Any previous data 
file records will be deleted, the backup files read into the 
databases, and the database files reindexed. 

e. Export Acct\Pers Data 

This option allows for the exporting of updated 
account and personnel data file records required by the Supply 
module for validation of JON and PI data fields during 
transaction entry. Place a disk in the B drive and select 
menu item. The account and personnel database files will be 
copied to the disk. 

7. Exit Menu 

Selecting "Quit to DOS" from the Exit menu (Figure 
D.20) will leave the system and return you to the DOS prompt. 


i 


% 
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Figure D.20 Exit Menu 
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